5.txt

来自「pl0」· 文本 代码 · 共 8 行

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