program lon_nhat;
uses crt;
var a,b,c,ln:integer;
{---Ham---}
function max(x,y:integer):integer;
begin
if x>y then max:=x else max:=y;
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap so thu nhat: '); readln(a);
write('Nhap so thu hai: '); readln(b);
write('Nhap so thu ba: '); readln(c);
ln:=max(a,b);
ln:=max(ln,c);
write('So lon nhat la: ',ln);
readln;
end.