uses crt;
var i:integer;
begin
clrscr;
for i:=20 downto 1 do
write(i:4);
readln;
end.
Đúng 0
Bình luận (0)
uses crt;
var i:integer;
begin
clrscr;
for i:=20 downto 1 do
write(i:4);
readln;
end.