basic.p

早期freebsd实现

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.