tìm giá trị lớn nhất của ba số a b c

uses crt;

var a, b, c, max: integer;

begin

clrscr;

         write('nhap a: '); readln(a);

           max:=a;

          write('nhap b: '); readln(b);

             if (b>max) then max:=b;

            write('nhap c: '); readln(c);

              if (c>max) then max:=c;

         writeln('gtln trong 3 so a, b, c la: ',max);

readln;

end.

uses crt;
var a,b,c,max:real;
begin
clrscr;
    read(a,b,c);
    max:=a;
    if(b > max) then max:=b;
    if(c > max) then max:=c;
    writeln(max:0:2);
readkey;
end.