filewhile.pas

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

{$+}
program test(input,output);
var
	i,a,b: integer;
begin     
   i := 1;
   a:=100;
   while i<=10 do 
   begin
   	a:=a+1;
   	i:=i+1;
   end;
   write('a:=');
   write(a);
   write('i:=');
   write(i);
   b:=a*i;
   write('b:=');
   write(b);

   		
   
end.