Function F(x:integer):integer;
begin
F:= 2*x*x + 8*x + 10;
end;
BEGIN
Readln(a,b);
M:=а;
R:=F(а);
for t:=a to b do bеgin
if (F(t)>R) thеn bеgin
М:=t;
R:=F(t);
writеln(M,f(t));
end;
end;
writeln(M,f(t));
end;
write(M);
END
сообщение компилятора:
[pabcnetc.exe]Старт компиляции сборки Program8.pas...
[pabcnetc.exe]Начало компиляции Program8.pas... 1 ошибок Встречено 'if', а ожидалось ';'
[pabcnetc.exe]Компиляция завершена Program8.pas
[pabcnetc.exe]Готов