Pascal! Написать программу, которая выводит на экран окружность, радиус которой "растет" из центра Измените программу так, что бы окружность сначала уменьшалась в радиусе, а потом увеличивалась

program zz1;

uses GraphABC; / / подключаем графическую библиотеку

var

i:integer;

begin

for i:=1 to 200 do / / организуем цикл для радиуса круга

begin

circle (250,250, i); / / рисуем круг

sleep (200); / / делаем небольшую задержку

end;

end.

program zz1;

uses GraphABC;

var

i:integer;

begin

for i:=200 downto 1 do / / организуем цикл для радиуса окружности от большого к малому

begin

circle (250,250, i);

sleep (200);

end;

for i:=1 to 200 do / / организуем цикл для радиуса окружности от малого к большому

begin

circle (250,250, i);

sleep (200);

end;

end.