5.out

pl0

   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.