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" поставь ;
Если не помогло скажи

Answer 2

Как?

Answer 3

там еще ошибки были но она запустилась

Answer 4

Всё тогда?

Answer 5

Просто если бы нет, я бы забил в паскаль и проверил всё)