program GT_lon_nhat;
uses crt;
var a, b, c, max: interger;
begin
clrscr
write('Nhap so a= '); readln(a);
write('Nhap so b= '); readln(b);
write('Nhap so c= '); readln(c);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln('So lon nhat la: ',max);
readln;
end