Viết chương trình tìm số lớn nhất trong ba số nguyên được nhập từ bàn phím?

Program BTT;
Uses crt;
Var a,b,c,max: longint;
Begin
        Clrscr;
        Write('Nhap so a: '); Readln(a);
        Write('Nhap so b: '); Readln(b);
        Write('Nhap so c: '); Readln(c);
        max:=a;
        If b>max then max:=b;
        If c>max then max:=c;
        Write('Max = ',max);
        Readln
End.

program tim_max;

uses crt;

var m,n,k:real;

max:real;

begin

clrscr;

write('nhap so thu nhat ='); readln(m);

readln(m); write('nhap so thu hai ='); readln(n);

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.