Лабораторная работа: Разработка форматов хранения программ. Структурирование

writeln('Здравствуйте вы используете программ для решения следующей задачи:');

writeln('На плоскости задано множество точек.');

writeln('Из каждого квадранта взята точка, максимально');

writeln('удаленная от начала координат. Проверить,');

writeln('будет ли параллелограммом четырехугольник');

writeln('построенный по выбранным из множества точкам.');

end;

procedure kol_toch (var rio:real; var q:integer);

begin

{$i-}

repeat

writeln('Введите количество точек.');

readln(q);

rio:=ioresult;

if rio <> 0 then

begin

writeln('Ошибка ввода.После нажатия ENTER попробуйте еше раз.');

readln;

end

else

if q<4 then

writeln('Не достаточно точек. Введите значение заново.');

until (rio = 0) and (q>3) ;

{$i-}

end;

procedure vvod_toch (q:integer; var rio:real; var a: array of tochka);

begin

{$i-}

repeat