Помогите решить задачу про круг, Круг растягивается в эллипс, и опять стягивается. Опции

[SpikyGirl]

Пожалуйста решите задачки, я сама в этом ничего не понимаю...

1)Нарисовать круг, который постепенно растягивается по горизонтали, превращаясь в эллипс, а затем стягивается обратно в круг. Программа заканчивается при нажатии на любую клавишу.

2)Разработать модуль, содержащий следующие процедуры и функции для работы с двумерными массивами. Поменять местами строки или столбцы с заданными номерами.

3)В файле, содержащем одномерные массивы целых чисел, найти количество компонент, где сумма элементов больше 100.

Зараннее спасибки!!!!

[Чужак]

1)Нарисовать круг, который постепенно растягивается по горизонтали, превращаясь в эллипс, а затем стягивается обратно в круг. Программа заканчивается при нажатии на любую клавишу.

Первая задача. /Самый простой вариант/.

program Ellips;
  Uses Crt,Graph;
  Var gd, gm: Integer;
 Begin
  InitGraph(gd,gm,'');
  repeat
  SetColor(15);
  circle(320,240,100);
  Delay(9000);
  SetColor(0);
  circle(320,240,100);
  Delay(1000);
  SetColor(15);
  ellipse(320,240,1,0,120,95);
  Delay(9000);
  SetColor(0);
  ellipse(320,240,1,0,120,95);
  Delay(1000)
  until KeyPressed;
  CloseGraph
 End.