01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / REYT / TOL

Unit tol;
INTERFACE
procedure sk(s:string;var m,k:integer);

IMPLEMENTATION
procedure sk;
var i:integer;
begin
m:=0;
k:=0;
for i:=1 to length(s) do
begin
if s[i]='(' then m:=m+1;
if s[i]=')' then k:=k+1;
end;
if m=k then
writeln(' Є®«ЁзҐбвў® ®вЄалў ойЁе

бЄ®Ў®Є=Є®«ЁзҐбвўг § Єалў ойЁе Ё =',k,'')
else
writeln(' Є®«ЁзҐбвў® ®вЄалў ойЁе
бЄ®Ў®Є - ',m,' § Єалў ойЁе - ',k,'');
end;
end.