t.txt

来自「用c语言实现类Pacal编译器」· 文本 代码 · 共 21 行

program  q; 
const a=90;
var b,c,d;
procedure p;
 begin 
    b:=b*a;
d:=b;
    c:=b2;
    write(b);
write(c);
 end

begin
  read(b); 
 while b#0 do
   begin
   call p;
   read(b);
   end
end.