t2.txt

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

program t2;
const a:=10
var b,c
procedure p;
begin
c:=b+a
end
begin
read(b);
while b<>0 do
begin
call p;
write(2*c);
read(b)
end
end