var a,b,c:real; begin write('Please input a,b,c:');//冒号是输出的一部分啊 readln(a,b,c); write('Max='); if (a>b) and (a>c) then writeln(a:0:5)//两个即以上的比较要加括号;:0:5即保留5为小数,不用可去掉 else if b>c then writeln(b:0:5)//一个比较就不用加 else writeln(c:0:5); end.
var a,b,c,max:integer; begin write('Please input a,b,c:'); readln(a,b,c); if a>b then max:=a else max:=b; if max<c then max:=c; writeln('Max=',max); end.