var i: byte;
begin
for i := 20 downto 10 do write(' ', i);
end.
// PascalABC.NET 3.4
begin Range(20,10,-1).Println end.
Это полная программа.
