pascaltext.txt

第一次写的

program Test;
const PAI:=3,A:=1
var i,max,min
procedure x;

begin
i=-10;
while i<100
do
i:=i+1;
read max,min
write max+i,min-i;
call (i+A);
end