Program tim_max;
Uses crt;
Var m,n,k:real;
max:real;
begin
clrscr;
write('nhap so thu nhat ='); readln(m);
write('nhap so thu hai ='); readln(n);
write('nhap so thu ba ='); readln(k);
max:=m;
if n>max then max:=n;
if k>max then max:=k;
writeln('gia_tri_lon_nhat=',max:4:0);
readln;
end.
~Xin hay nhất ạ~