d.pl0

来自「pl0编译原理源代码」· PL0 代码 · 共 18 行

var a,b,c,d
begin
read(a);
while(a#0) do
begin
read(b);
read(c);
d:=a;
end
begin
    if(a<b)  then d:=b;
    if(d<c)  then d:=c;
    write(d);
end