uses crt;
var a,b,c,d,max:longint;
begin
clrscr;
readln(a);
readln(b);
readln(c);
readln(d);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
if d>max then max:=d;
write(max);
readln;
end.

`\color[#094A52 ][@] \color[#0F5132][b] \color[#066839][ơ] ` ` \color[#1E5938][s]\color[#3DAC78 ][e] \color[#57CC99][n] \color[ #74C69D][t]`

$------------------------------$

Program TIM_SO_LON_NHAT;

uses crt;

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

Begin

Clrscr;

Writeln('nhap bon so can tim:');

Writeln('nhap a ='); Readln(a);

Writeln('nhap b ='); Readln(b);

Writeln('nhap c ='); Readln(c);

Writeln('nhap 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 trong 4 so la ', Max ,');

readln;

End.