viết hàm max(a,b) để tìm số lớn nhất trong hai số a và b

Hàm:

function max(a,b:integer):integer;

begin

     if a>b then max:=a else max:=b;

end;

Chương trình:

program lon)nhat;

uses crt;

var a,b:integer;

function max(a,b:integer):integer;

begin

     if a>b then max:=a else max:=b;

end;

BEGIN

     clrscr;

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

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

     write(‘So lon nhat la: ‘,max(a,b));

     readln;

end.