4.4BSD/usr/src/usr.bin/pascal/tstpx/src/basic.p

program test(input,output);

var
i, j :integer;

procedure print(
{value}	num1 :integer;
 var	num2 :integer);

begin
writeln(num1,num2:1);
end;


begin
read(i,j);
print(i,j);
end.