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

Program Program1;

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

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

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.