1. отыскать сумму первых 10 чисел, кратных 7;2. вывести на экран

1.program zz1;

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

begin

i:=1;

while klt;=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 klt;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 ilt;=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.