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' а ожидалось '; '

Правильный ответ на вопрос 👍 «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 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!