Max 3 số pascal function

Chương trình có hàm theo yêu cầu:

program bai_giai;

uses crt;

var a,b,c:integer;

function max(x,y:integer):integer;

begin

     if x>y then exit(x) else exit(y);

end;

BEGIN

    clrscr;

    readln(a,b,c);

    write(max(max(a,b),c));

    readln;

END.

Hàm:

function max(x,y,z:integer):integer;
begin
    if x>y then max:=x else max:=y;
    if z>max then max:=z;
end;

Chương trình:

program bai_giai;
uses crt;
var a,b,c:integer;
function max(x,y,z:integer):integer;
begin
    if x>y then max:=x else max:=y;
    if z>max then max:=z;
end;
BEGIN
    clrscr;
    readln(a,b,c);
    write(max(a,b,c));
    readln;
END.

Với việc so sánh x,y ta có thể tìm được số lớn nhất trong 2 số.

Sau đó so sánh max với z thì ta sẽ tìm được số lớn nhất trong 2 số đó với z cũng chính là so sánh 3 số.