program SimpelProc;
procedure proc(input, a);
begin
  write(input, a)
end
begin
  call proc(1, 2)
end