Написать рекурсивную процедуру для ввода с клавиатуры последовательности чисел и вывода...

Question

Написать рекурсивную процедуру для ввода с клавиатуры последовательности чисел и вывода ее на экран в обратном порядке(окончание последовательности-при вводе нуля).Паскаль

Answer 1

PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!

procedure Foo;
begin
  var k:integer;
  Read(k);
  if k<>0 then begin Foo; Print(k) end
end;

begin
  Foo;
end.