Return to basic.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

BSD 4.3reno

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.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.