program so_lon_nhat;

uses crt;

var a,b,c:integer;

begin

writeln ('Nhap so nguyen a='); readln(a);</p><p>writeln ('Nhap so nguyen b='); readln(b);</p><p>writeln ('Nhap so nguyen c='); readln(c);</p><p>max:=a;</p><p>if max < b then max:=b;</p><p>if max < c then max:=c;</p><p>writeln ('So lon nhat trong 3 so la:',max);

readln

end.