1.(char). пользователь вводит текст, признаком конца которого является точка. напечатать true, если буква «а» встречается чаще, чем буква «в», и напечатать false в противном случае.

var
c:char;
a,b:integer;
begin

c:='a';while (c <> '.') do begin
if (c = 'а') then inc(a) else if (c = 'в') then inc(b);
read(c);
end;

if (a > b) then write('true') else write('false');
end.