Составьте программу, которая:в) заменяет в формуле, заданной с клавиатуры, круглые скобки на квадратные.
var a:string; i:integer; begin Readln(a) ;for i:=1 to length(a) do begin if a='(' then a:='['; if a=')' then a:=']'; end; Writeln(a); end.