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

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

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

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

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

1

Ответы и объяснения

2013-12-06T11:57:15+04:00
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.