4.txt

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

var a,b;
begin
    a:=25;
    if a=1 then b:=2 else b:=3;
    write(a,b)
end.