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

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 написать программу подсчитывающию сумму чисел от 5 до 15

var s,y,r,i: integer;
begin

for  i:=    to   do
begin

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

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

end;

end.

//фам№3 написать программу подсчит сумму чисел от -8 до 7

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

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

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

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

begin 

writeln( 'счет  ',i ) ;

if i mod 2 =0 then

s := s +i;

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

end;

end.