Напишите программы в abc паскале : 1)надо ввести три числа и найти из них наибольшее; 2)надо ввести пять чисел и найти из них наибольшее заранее !

var a:array [1..100] of real;
i,n:integer;
max:real;
Begin
    writeln("Введите кол-во чисел");
    read(n);
    for i := 1 to n do
        read(a[i]);

    max:=a[1];
    for i:=2 to n do
        if max<a[i] then
           max:=a[i];
    write(max);
End.

Program Program1;

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

var
mas:array [1..100] of integer;
i,k,max:integer;
begin
write('Введите кол-во чисел: ');
readln(k);
for i:=1 to k do
begin
write('A',i,'=');
readln(mas[i]);
end;
max:=mas[1];
for i:=2 to k do
max:=maximum(max,mas[i]);
writeln('Максимальное число=',max);
end.