1. (Char). Пользователь вводит текст…

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.