Viết phương trình nhập vào 3 số nguyên khác nhau ,đưa ra số lớn nhất

Program baitap;

Uses crt;

Var a,b,c,max:integer;

Begin

Clrscr;

Write('Nhap lan luot 3 so nguyen:');

Readln(a,b,c);

max:=a;

If b>max then max:=b;

If c>max then max:=c;

Writeln('So lon nhat:',max);

Readln

End.

program nho;
uses crt;
var a, b, c : integer ;
begin
clrscr;
write('nhap gia tri so nguyen a :');readln(a);
write('nhap gia tri so nguyen b  :');readln(b);

write('nhap gia tri so nguyen c :');readln(c);

if (a > b) and ( a > c) then writeln(c ,' la so lon nhat ');

if (b > c) and ( b > a) then writeln(b ,'la so lon nhat ');

if (c > b) and ( c > a) then writeln(c ,' la so lon nhat ');

readln
end.