Viết chương trình nhập vào 3 số nguyên khác nhau A, B và C in ra màn hình số lớn nhất

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

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.