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

info;

kol_toch(io,n);

vvod_toch(n,io,s);

kvan_zapol(s);

if kvan_zapol(s) then

begin

max_kvan(max1,max2,max3,max4,i,n,s);

vivod(s[max1].x,s[max1].y,s[max2].x,s[max2].y,

s[max4].x,s[max4].y,s[max4].x,s[max4].y,s);

end

else

begin

writeln('Точки не во всех квадрантах. Воспользоваться программой еще раз');

end;

povtor(g,io);

until g=0 ;

readln;

end.

Пункт № 7 Текстовые примеры программ.

Первый вариант работы программы.

Вариант второй.