Составьте программу, которая: в) заменяет в формуле, заданной с клавиатуры, круглые скобки на квадратные.

var a:string;
i:integer;
begin
Readln(a)
;for i:=1 to length(a) do
begin
if a[i]='(' then a[i]:='[';
if a[i]=')' then a[i]:=']';
end;
Writeln(a);
end.