uses Crt const type mas array of integer var mas integer procedure rec

uses Crt;
const n = 5;
type mas = array[1..n] of integer;
var a,b:mas;
    i:integer;
procedure rec(var a:mas;k:integer);
begin
   if k <= n then
   begin
       if a[k] > 0 then
          writeln(a[k]);
       rec(a,k+1);
       if a[k] < 0 then
               writeln(a[k]);

   end;
end;
Begin
    clrscr;
    for i:=1 to n do
    readln(a[i]);
    writeln;
    rec(a,1);
    readkey;
End.