1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
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.
|
