mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-21 12:12:30 +02:00
21 lines
494 B
ObjectPascal
21 lines
494 B
ObjectPascal
program changeit;
|
|
|
|
uses sysutils;
|
|
|
|
var
|
|
S : String;
|
|
|
|
begin
|
|
While not eof do
|
|
begin
|
|
ReadLn(S);
|
|
S:=StringReplace(S,'\[','\begin{stack}\\',[rfReplaceAll]);
|
|
S:=StringReplace(S,'\]','\end{stack}',[rfReplaceAll]);
|
|
S:=StringReplace(S,'\(','\begin{stack}',[rfReplaceAll]);
|
|
S:=StringReplace(S,'\)','\end{stack}',[rfReplaceAll]);
|
|
S:=StringReplace(S,'\<','\begin{rep}',[rfReplaceAll]);
|
|
S:=StringReplace(S,'\>','\end{rep}',[rfReplaceAll]);
|
|
Writeln(S);
|
|
end;
|
|
end.
|
|
|