помогите пожалуйста написать програму по информатике,я вообще не разбираюсь в них

const N = 10;var im, i, ie: Integer;    A: array [0..N] of Integer;begin    for i := 0 to N do        A[i] := random(99);    im := A[0];    for i := 0 to N do        if (A[i] > im) then        begin             im := A[i];             ie := i;        end;    writeln(ie);end.==========================================const N = 10;var im, i, ie, ib: Integer;    A: array [0..N] of Integer;begin    readln(im);    for i := 0 to N do        A[i] := random(15);    for i := 0 to N do        if (im = A[i]) then ie := i;    writeln(ie);end.================================const N = 10;var im, i, ie, ib: Integer;    A: array [0..N] of Integer;begin    readln(im);    for i := 0 to N do        A[i] := random(15);    for i := 0 to N do        if (im = A[i]) then        begin             ie := i;             break;        end;    writeln(ie);end.================================Вот, прошу:) Тут полезно знать, что вначале массив заполняется случайными числами во всех примерах, вдруг спросят