Var n,i:integer;
begin
for n:=2 to 99 do
begin
for i:=2 to 99 do
begin
if (n+i)=(n*i) then writeln(n,' ',i);
end;
end;
end.<span>
</span>
Begin
var s := readstring();
if (s.Where(x -> x = 'а').Count > s.Where(x -> x = 'о').Count)
then write('Букв "а" больше')
else write('Букв "о" больше');
end.
1-я Ошибка: пропущено слово array.
2-я Ошибка: of integer написано слитно.
Исправленный вариант: consta:array[1..4]of integer=(11,7,61,107);
Ответ:2)