//好吧，用过程做var a,b,c:longint;//主程序定义procedure max(x,y:longint);beginif (x>y) then a:=x else a:=y;end;//以上是过程，附主程序beginreadln(a,b,c);max(a,b);max(a,c);writeln(a);end.//测过了，可以用。
