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

Pascal: program strings; uses crt; var i,open,close: integer; a: String; beginopen: =0; end: =0; clrscr; write ('Введите строку: '); readln (a); for i: =1 to length (a) dobeginif a[i]=' (' then open: =open+1; if a[i]=') ' then close: =close+1; end; writeln ('Открывающихся скобок: ', open, ' штук'); writeln ('Закрывающихся скобок: ', close, ' штук'); readln; end.