Найти наибольшее из трёх чисел

function Max(a,b: integer): integer;
begin
  if a > b then
    Max := a
  else
    Max := b;
end;

WriteLn(Max(a, Max(b, c)));

var
a,b,c:integer;
begin
writeln('введите три числа через пробел ');
readln(a,b,c);
if (a>b) and (a>c) then writeln('наибольшее  ',a)
else if  (b>a) and (b>c) then writeln('наибольшее  ',b)
else writeln('наибольшее  ',c);
readln;
end.

Var
 a,b,c,max:integer;
Begin
 Write('vvedi a:');
 Readln(a);
 Write('vvedi b:');
 readln(b);
 Write('Vvedi c:');
 Readln(c);
If (a>b) and (a>c) then max:=a;
If (b>a) and (b>c) then max:=b;
If (c>a) and (c>b) then max:=c;
Writeln('max=',max);
end.

var a: array[1..3] of real;
i: integer;
max: real;
begin
for i:=1 to 3 do read(a[i]);
writeln;
max:=a[1];
for i:=2 to 3 do if a[i]>max then max:=a[i];
write('max=',max);  
end.

var m, t: Real; n: Integer;
begin
  Read(m);
  for n:=1 downto 0 do begin
    Read(t); if m<t then m:=t;
  end;
  WriteLn(m);
end.

function max3 (a, b, c : Integer) : Integer;
begin
    if a < b
    then
        if b < c
        then
            max3 := c
        else
            max3 := b
    else
        if a < c
        then
            max3 := c
        else
            max3 := a;
end;