Question

program n_66;
var x, max:real; i: integer;
begin
writeln ('Введите число');
readln (max);
for i:=1 to 9 do begin
writeln (x);
if x>max then max:=x
end
writeln ('максимум -', max');
end.
Встречено 'writeln' а ожидалось ';'

Answer 1

После первого "end" поставь ;
Если не помогло скажи