5.out

来自「pl0」· OUT 代码 · 共 8 行

   0  var a,b;
   1  begin
   2     a:=25;
   4     if a=1 then b:=2 else b:=3;
  13     write(b);
  15     for a:=24 downto 2 by -2 do
  27     write(a)
  29  end.