program so_lon_nhat;
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 la:',max);
readln
end.
program tim _so_lon_nhat;
uses crt;
var a, b, c: integer;
Begin
write ("Nhap so nguyen a = "); readln(a);
write ("Nhap so nguyen b = "); readln(b);
write ("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 la :",max);
readln
end.