Tìm số lớn nhất trong 3 số nguyên (Tin học 8)

Đề bài: Yêu cầu người dùng nhập vào 3 số nguyên bất kỳ, sau đó in ra màn hình số lớn nhất trong 3 số trên. 

--------------------------------------------------------------------------------------------------------------------

Program Tim_So_Lon_Nhat;
Uses crt;
Var a,b,c,max:integer;
Begin    
    clrscr;

    Writeln('Nhap gia tri bien a= ');
    Readln(a);
    Writeln('Nhap gia tri bien b= ');
    Readln(b);
    Writeln('Nhap gia tri bien c= ');
    Readln(c);

     If  a >= b  Then max := a Else max := b;
     If  max <= c Then max := c;
     Writeln('Gia tri lon nhat trong a,b,c la: ', max);

    readln;
End.