program azkp;
uses Crt;
var a,b,c,d : integer;
begin
Write(' Nhap so thu nhat : '); readln(a);
Write(' Nhap so thu hai : '); readln(b);
Write(' Nhap so thu ba : '); readln(c);
Write(' Nhap so thu bon: '); readln(d);
If (a > b) and (a > c) and (a > d) then Write(' So lon nhat la ',a);
If (b > a) and (b > c) and (b > d) then Write(' So lon nhat la ',b);
If (c > a) and (c > b) and (c > d) then Write(' So lon nhat la ',c);
If (d > b) and (d > c) and (d > a) then Write(' So lon nhat la ',d);
readln
end.
