Uses crt;
Var x, y, z, t, max: real;
Begin
Clrscr;
Write('Nhap so x = '); readln(x);
Write('Nhap so y = '); readln(y);
Write('Nhap so z = '); readln(z);
Write('Nhap so t = '); readln(t);
max:=x;
If y>max then max:=y;
If z>max then max:=z;
If t>max then max:=t;
Writeln('So lon nhat la: ',max:4:2);
Readln
End.