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

varc:char;a,b:integer;beginc:='a';while (c <> '.') do beginif (c = 'а') then inc(a) else if (c = 'в') then inc(b);read(c);end;if (a > b) then write('true') else write('false');end.