Viết 1 phương trình pascal nhập vào 2 số nguyên a và b. Tìm giá trị lớn nhất và đưa ra màn hình

uses crt;

var a,b.max: integer;

begin

clrscr;

write (‘nhap a: ‘);  readln (a);

write (‘nhap b: ‘);  readln (b);

max:=a;

if max<b then max:=b;

writeln (‘gia tri lon nhat: ‘,max);

readln;

end.