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

begin
  trykiEelnevRida(4);
end.

4 3 2 1 1 2 3 4 

//Pange see näitprogramm tööle Pascalist erinevas keeles