Что не так в программе в конце должен вывести какое число больше program primer; var a, b:integer; wrateln:; readln (a, b); if a>b then writeln (a) else writeln (b); end.

Приведем текст программы к более удобно читаемому виду

program primer;

var a, b:integer;

wrateln:;

readln (a, b);

if a>b then writeln (a) else writeln (b);

end.

Теперь видно, что в тексте нет оператора begin и есть ошибочный оператор wrateln.

Если третью строку wrateln:; заменить на begin, то программа будет работать.