program cisla1;
uses Crt;
var cisloStr : string;
cisloInt, step : integer;
begin
ClrScr;
Write('Napiste cislo: ');
Read(cisloStr);
Val(cisloStr, cisloInt);
WriteLn;
for step := cisloInt downto 1 do begin
WriteLn(step);
end;
ReadLn;
ReadLn;
end.