procedure trykiEelnevRida(arv: integer);
begin
  write(arv, ' ');
  if arv>1 then trykiEelnevRida(arv-1);
end;

begin
  trykiEelnevRida(8);
end.