Напишите програму вычисления произведений:

всех чисел от 1 до 100, кратных 3, но некратных 6.

uses crt;

var p, i:integer;

begin

clrscr;

writeln ('chisla:');

p:=1;

for i:=1 to 100 do

if (i mod 3 = 0) and (i mod 6 0) then

begin

p:=p*i;

write (i,' ');

end;

writeln;

write ('proizv.=', p);

end.