Question

Пожалуйста. Помогите, СРОЧНО

Написать (листинг) программу вычисления функции значения y=x^2-16x+32 для от 1 до 10 с шагом 0,25

1) написать без меток(вроде так называется)

2) по возможности с until repeat

Ниже листинг (с ошибками) непойму в чём дело

Answer 1

Program primer;
var y, x: real;
begin
x:=1;
repeat
  y:=x*x-16*x+32;
  write(y)
  x:=x+0.25;
until x < 10;
readln;
end.