Program primer;
var y, x: real;
begin
write ('введите x=');
read(x);
x:=1;
repeat
until
begin
while x<10 do y:=x*x-16*x+32;
x:=x+0.25;
end;
readln;
end.