uses crt;
var
i,j : integer;
begin
clrscr;
for i := 15
downto 3 do
begin
if i mod 3 = 0 then
begin
for j := 3 to i do
begin
if j mod 3 = 0 then
write (j, ' ');
end;
writeln;
end;
end;
readln;
end.
0 comments:
Post a Comment