Лабораторная работа: Разработка математической модели на основе описанных методов

code:=1;

continue

end;

until (code=0);

repeat

write('Введите координату Y ',i,'-ой точки: ');

readln readln val(cstr,D[i].y,code);

if (code<>0) then

begin

clrscr;

writeln('Это не число! Попробуйте еще раз.');

code:=1;

continue

end;

clrscr;

if ((D[i].y>100) or (D[i].y<-100)) then

begin

clrscr;

writeln('Диапазон координат точек от -100 до 100!');

code:=1;

continue

end;

until (code=0);

end;

for i:=1 to n do

begin

writeln('D[',i,'].x=',D[i].x);

writeln('D[',i,'].y=',D[i].y);

end;