1.
Program dfgd;
var x,i:integer;
begin
x:=0;
for i:=1 to 1000 do
if (i mod 3) = 0
 then if (i mod 4) = 0
        then if(i mod 5) = 0
then x:=x+1;
writeln('Чисел, кратных 3,4 и 5 - ',x);
end.

2.
Program Factorial7;
var f:longint;
i: byte;
begin
f:=1;
for i:=2 to 7 do
f:=f*i;
writeln('7! = ', f);
end.