program raf105;
var i,pro: integer;
begin
pro:= 1;
for i:=1 to 9 do
if (i mod 3)=0
then pro:= pro * i;
writeln(pro);
end.
program raf105;
var i,pro: integer;
begin
pro:= 1;
for i:=1 to 9 do
if (i mod 3)=0
then pro:= pro * i;
writeln(pro);
end.
Язык PascalABC