1. найти сумму первых 10 чисел, кратных 7; 2. вывести на экран 11 первых чисел кратных 5; 3. составить программу рисования 18 прямоугольников синего цвета, координаты которых определяется случайным образом, а стороны равны а=140, b=40.

1. program zz1;

var i, k, s:integer; / / задаем переменные целого типа

begin

i:=1;

while k<=10 do

begin

i:=i+1;

if i mod 7 = 0 then begin s:=s+i; k:=k+1; end;

end;

write (' сумма первых 10 чисел кратных 7 = ', s);

end.

2. program zz1;

var i, k:integer; / / задаем переменные целого типа

begin

i:=1;

while k<11 do

begin

i:=i+1;

if i mod 5 = 0 then begin k:=k+1; writeln (k,'-ое число кратное пяти = ', i); end;

end;

end.

3. program zz1;

uses graphabc;

var i, x, y:integer; / / задаем переменные целого типа

begin

i:=1;

while i<=18 do

begin

x:=random (500);

y:=random (500);

rectangle (x, y, x+140, y+40);

floodfill (x+1, y+1, clblue);

i:=i+1;

end;

end.