Program skaitlis_otradi; Var f1,f2:text; sk:array [1..1000] of longint; i,j,m:integer; count:longint; Begin Assign (f1, 'reverse.in'); Assign (f2,'reverse.out'); Reset (f1); Rewrite (f2); Readln (f1,count); If count>0 then Begin {2} For i:=1 to count do Read (f1,sk[i]); For i:=count downto 1 do Write (f2, sk[i],' '); End; {1} If count=0 then Begin {3} j:=1; While not eof(f1) do Begin {4} Read(f1,sk[j]); j:=j+1; End; m:=j-1; {2} If m=0 then begin Write (f2,'Nav skaitlu') end else Begin{5} Writeln (f2); For i:=m downto 1 do Write(f2,sk[i],' '); End;{4} End;{5} Close (f2); Close (f1); End.