Практическая работа . Все сохранить под фамилия и № задачи

  //фам№1 написать программу для рисования 7 различных кругов

uses GraphABC;
var x,y,r,i: integer;
begin
SetPenWidth(3);
SetBrushStyle(bsClear);
for  i:= 1 to 10 do
begin
x := random(600);
y := random(400);
R := random(150);
SetPenColor(clRandom);

circle (x, y , r);

end;
end.

//фам№2 написать программу для рисования 8 различных прямоугольников 

//Rectangle(x1,y1, x2,y2 );

uses GraphABC;
var x1,____,r,i: integer;
begin
SetPenWidth(3);
SetBrushStyle(bsClear);
for  i:= 1 to 10 do
begin
x1 := random(600);
y 1:= random(400);
______

_______
SetPenColor(clRandom);

_______

end;
end.

//фам№3 написать программу подсчитывающию сумму чисел от 12 до 17

var s,y,r,i: integer;
begin
s :=0 ;
for  i:=    to   do
begin

writeln( 'счет  ',i ) ;
s := s +i;

writeln( 'сумма  ', s) ;

end;

end.

//фам№4 написать программу подсчит произведение чисел от 2 до 7

//p :=1 ;(подсказка)

//фам№5 написать программу подсчит. произведение чисел от 1 до 5 (величина P) и подсчитывающую сумму чисел от 1 до 5( величина s)

//фам№6 написать программу подсчит. сумму четных  чисел от 8 до 17

//фам№7 написать программу подсчит. сумму НЕчетных  чисел от 8 до 17

//фам№8 написать программу: Ввести с клавиатуры число а. Если он больше 10, то  подсчит. сумму НЕчетных  чисел от 8 до 17, иначе подсчит. сумму четных  чисел от 8 до 17

//фам№9 написать программу: Ввести с клавиатуры число а. Если оно больше 15, то  подсчитать сумму НЕчетных  чисел от 1 до 10 , иначе подсчит. сумму четных  чисел от 10 до 20

/фам№10 написать программу: Ввести с клавиатуры число а. Если оно больше 20, то 

 подсчит. сумму НЕчетных  чисел от 1 до 5 

подсчитать количество НЕчетных  чисел от 1 до 5 ,

иначе

 подсчит. количество четных  чисел от 2 до 6

подсчит. произведение  четных  чисел от 2 до 6