program lon_nhat;

uses crt;

var a,b,c,ln:integer;

{---Ham---}

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

begin

      if x>y then max:=x else max:=y;

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);

      ln:=max(a,b);

      ln:=max(ln,c);

      write('So lon nhat la: ',ln);

      readln;

end.

program tim_max;
uses crt;
var m,n,k:real;
max:real;
begin
clrscr;

write('nhap so thu nhat ='); readln(m);

write('nhap so thu hai ='); readln(n);

write('nhap so thu ba ='); readln(k);

max:=m;
if n>max then max:=n;
if k>max then max:=k;
writeln('gia_tri_lon_nhat=',max:4:0);
readln;
end.