uses crt; var a,b,c:integer; function max(x,y,z:integer):integer; begin max:=x; if y>x then max:=y; if z>x then max:=z; end; begin write('Nhap a: '); readln(a); write('Nhap b: '); readln(b); write('Nhap c: '); readln(c); write('Gia tri lon nhat la: ',max(a,b,c)); readln end.
