Viết chương trình pascal nhập vào 3 số a,b,c nhập từ bàn phím in ra kết quả lớn nhất

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

Program so_lon_nhat;

Uses Crt;

Var a,b,c :Integer;

Begin

Clrscr;

Writeln (‘Hay nhap so a: ’);

Readln (a);

Writenln (‘Hay nhap so b: ’);

Readln (b);

Writeln (‘Hay nhap so c: ’);

Readln (c);

If (a>b) and (a>c )then writeln (‘ a la so lon nhat’);

If (b>a )and (b>c) then writeln (‘b la so lon nhat’);

If (c>a) and (c>b )then writeln (‘c la so lon nhat’);

Readln;

End.