uses crt;

var a,b,c,d: longint; 

max: real;

begin

clrscr;

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 tu:'); readln(d);

max:=a;

if b>max then max:=b;

if c>max then max:=c;

if d>max then max:d;

writeln('so lon nhat trong 4 so la:',max:0:0);

readln

end.

Program so_lon_nhat;

Uses crt

Var a,b,c,d,max:real;

Begin

Write('Ban hay nhap so a: '); readln(a);

Write('Ban hay nhap so b: '); readln(b);

Write('Ban hay nhap so c: '); readln(c);

Write('Ban hay nhap so d: '); readln(d);

max:=a;

If max>b then max:=b;

If max>c then max:=c;

If max>d then max:=d;

writeln('So lon nhat la: ', max);

Readln

End.