Элементарная задача, намекните Опции

[Makc]

Составить программу, определяющую большее из 5 введенных чисел :D

[-Павел-]

Составить программу, определяющую большее из 5 введенных чисел :D

Код

program iuiu;
uses crt;
type
vector=array[1..3] of real;
var
   x:vector;
   i,nom: integer;
   max:real;
begin
   writeln('X[',3,']:');
   writeln;
   for i:=1 to 3 do
       begin
            write('X[',i,']=>');
            read(x[i])
       end;
   max:=x[1];
   nom:=1;
   for i:=1 to 3 do
   if(max<x[i]) then begin
                    max:=x[i];
                    nom:=i
                    end;
   writeln('наиб. элемент= ',max,'[',nom,']');
end.