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

program xcshiudcsk;

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

if (a>c) and (a>b) then writeln('max',a);

if (b>c) and (b>a) then writeln('max',b);

if (c>b) and (c>a) then writeln('max',c);

readln;

end.

Со второй все также, просто переменных побольше. Сделал таким образом, ибо на сложном условии запутаться можно.

Программа просит на ввод a.b.c 

Высчитывается наибольшее

Выводится наибольшее 

И через массив, конечно, можно, но про него ничего не сказано

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.