Program ed;<br />

uses crt;<br />
var i,a,b,c,d,t,max:integer;<br />
<br />

<br />
Begin
<br />
writeln('vvedi pervoe chislo');
<br />
readln(a);
<br />
writeln('vvedi vtoroe chislo');
<br />
readln(b);
<br />
writeln('vvedi tretie chislo');
<br />
readln(c);
<br />
if a>=b then max:=a
<br />
        else max:=b;
<br />
if c>max then max:=c;
<br />
writeln(max);
<br />
readln;
<br />
End.