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