Pascal abc. Дан одномерный массив из n реальных чисел. Найти номер

Вы уверены, что конкретно этот язык?

Дата творения: 2002 год.Предназначение: подмена Turbo Pascal, Free Pascal.Использовался для обучения программированию школьников.С 2007 г. не поддерживается.В Беларуси был издан школьный учебник (Заборовский Г.А . и др. Информатика).

Это информация с официально веб-сайта разработчиков.

*с официального

Может быть, все же, PascalABC.NET ?

Вопрос, где она его берет)))))

Я как-то смеха ради поинтересовался у разработчиков, где брать. Ответили, что понятия не имеют.

Program asd;

Uses crt;

var a:array [1..100] of integer;

   n,k, i,max:integer;

begin

writeln ('Размер массива');

readln (n);

for i:=1 to n do

begin

readln (a[i]);

if a[i]gt;=max

then begin

       max:=a[i];

       k:=i;

      end;

end;

writeln (k);

end.