[Pascal] Нужно repeat заменить while

[kukobch]

var b,a,x,y:real;
n,i: integer;
c:char;
begin 
repeat 
writeln('Введите а');
readln(a);
writeln('Ведите b');
readln(b);
writeln('Таблица значей функция');
n:= round((b-a)/0.5);
x:=1;
writeln('---------------------');
writeln('| x=       | y=     |');
writeln('---------------------');
for i:=1 to n do 
begin 
y:= (sin(x)/cos(x))+abs(x);
writeln(' | ', x:6:2, ' | ', y:6:2, ' | ');
x:=x+0.5;
end;
writeln('Хотите повторить? (y/n)');
readln(c);
until(c= 'n');
end.

[Аватар]

repeat 
  ...
  readln(c);
until (c= 'n');

равносилен

c:=' ';
while c<>'n' do begin
  ...
  readln(c);
end;

[kukobch]

Спасибо большое ) очень выручили