var a: integer;
procedure row(n:integer);
begin
if n>=1 then begin
write (n, ' ');
row(n-1)
end;
readln(a);
row(a);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a: integer;
procedure row(n:integer);
begin
if n>=1 then begin
write (n, ' ');
row(n-1)
end;
end;
begin
readln(a);
row(a);
end.