С клавиатуры вводится текст из специальных символов. Текст заканчивается точкой. Определить, какой символ ; или _ встречается чаще.

var
d, p:integer;
c:char;

begin
d:=0; p:=0;

repeat
read (c);
if c=’;’ then d:=d+1;
if c=’_’ then p:=p+1;
until c=’.';

if d>p then writeln(‘; больше,чем _ ‘)
else if d=p then writeln(‘; = _ ‘)
else writeln(‘_ больше,чем ; ‘)

end.