fileif.pas

来自「本Delphi项目文件为本人在一个Pascal-s（子集）源代码基础上完成的。本」· PAS 代码 · 共 18 行

{$+}
program test(input,output);
var	
	i,a,b: integer;
begin 
	i:=2;
	a:= i*i;
	b:=  a*a*i;    
	write('good boy!');
      if  i>=1 then   
    	   write(i);
      if  a>=1 then
      	write(a);
      if b>=1 then
      	write(b);
   
   
end.