Question

ПАСКАЛЬ!!! 
Напишите программу для нахождения большего из пяти введённых чисел, используя оператор If на паскале

Answer 1

var

    Data: array[1..5] of Integer;

    i, t: byte;

begin

t := 0;

    for i :=1 to N do

        ReadLn(Data[i]);

    for i :=1 to N do

        if t <  Data[i] then

            begin
                t := Data[i];
            end;

    end;

WriteLn("Наибольшее: ", t);

end.