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

if (code<>0) then

begin

clrscr;

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

n:=5;

end;

if not( n in[3..20]) then

begin

clrscr;

code:=1;

writeln('Число не находится в заданном диапазоне! Попробуйте еще раз')

end;

until (code=0);

clrscr;

for i:=1 to n do

begin

repeat

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

readln(cstr);

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

if (code<>0) then

begin

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

continue

end;

clrscr;

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

begin

clrscr;