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

program zz1;

var s:string; / / задаем переменную строкового типа

i, k1, k2:integer; / / задаем переменные целого типа

begin

write (' введите заданную формулу ');

read (s); / / вводим с клавиатуры заданную формулу

for i:=1 to length (s) do / / организуем цикл от первого до последнего символа формулы

begin

if s[i] = ' (' then k1:=k1 + 1; / /считаем открывающиеся скобки

if s[i] = ') ' then k2:=k2 + 1; / /считаем закрывающиеся скобки

end;

writeln ('в заданной формуле открывающихся скобок = ', k1); / / выводим ответ

write ('в заданной формуле закрывающихся скобок = ', k2);

end.