Program so-lon-nhat;t
Uses crt;
Var a,b,c: integer
Begin
Writeln ('Nhap so nguyen a=')
Readln(a);
Writeln ('Nhap so nguyen b=')
Readln(b);
Writeln ('Nhap so nguyen c=')
Readln(c);
Max:=a;
If max<b then max:=b;
If max<c then max:=c;
Writeln ('So lon nhat trong 3 so là:',max);
Readln
end.