pascaltext.txt

来自「第一次写的」· 文本 代码 · 共 15 行

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