procedure test2(self : longint);
begin
 writeln(self);
end;

begin
  test2(1);
end.