модифицировать программу

[Sergo39rus]

uses crt;
var a,b,c,x,y,s,p:real;
begin
clrscr;
repeat
writeln('Введите коэффициенты прямой Ax+By+C, не равные 0');
readln(a,b,c);
until a*b*c<>0;
x:=-c/a;
y:=-c/b;
p:=abs(x)+abs(y)+sqrt(sqr(abs(x))+sqr(abs(y)));
s:=0.5*abs(x)*abs(y);
write('Периметр=',p:0:2,' площадь=',s:0:2);
readln
end.

Модифицировать эту программу таким образом, чтобы автоматически осуществлялись многократные решения задачи при изменении одного из исходных данных в заданном диапазоне. Шаг изменения аргумента должен быть вычислен так чтобы число повторений цикла лежало в диапазоне от 15 до 20.
Заранее спасибо.

[Stilet]

Ничего не понял, но видимо так:

uses crt;
var a,b,c,x,y,s,p:real;
begin
clrscr;
repeat repeat
writeln('Введите коэффициенты прямой Ax+By+C, не равные 0');
readln(a,b,c);
until a*b*c<>0;
x:=-c/a;
y:=-c/b;
p:=abs(x)+abs(y)+sqrt(sqr(abs(x))+sqr(abs(y)));
s:=0.5*abs(x)*abs(y);
write('Периметр=',p:0:2,' площадь=',s:0:2);
until false;
end.

[Sergo39rus]

не, точно не так