Viết chương trình tìm giá trị lớn nhất 3 số nhập vào từ bàn phím (SỬ DỤNG CHƯƠNG TRÌNH CON)

program GTLN;

uses crt;

var a,b,c:integer;

{—–Chuong-trinh-con——}

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

begin

       max:=x;

       if y>max then max:=y;

       if z>max then max:=z;

end;

{——Chuong-trinh-chinh——}

BEGIN

       clrscr;

       write(‘Nhap so thu nhat: ‘);   readln(a);

       write(‘Nhap so thu hai: ‘);   readln(b);

       write(‘Nhap so thu ba: ‘);   readln(c);

       write(‘Gia tri lon nhat la: ‘,max(a,b,c));

       readln;

end.