Помогите заменить repeat и until в этой программе: var x,y:real; begin; x:=5; repeat...

Question

Помогите заменить repeat и until в этой программе:
var x,y:real;
begin;
x:=5;
repeat
y:=4*x-5;
writeln('if x=',x,' then y=',y);
x:=x+0.5;
until x=10.5;
end.

Comments

На что заменить?

Answer 1

Var x,y:real;
begin;
x:=5;
while x < 10.5 do
begin
  y:=4*x-5;
  writeln('if x=',x,' then y=',y);
  x:=x+0.5;
end;
end.