Расшифровка:
САМАЯ БОЛЬШАЯ СОЦИАЛЬНАЯ СЕТЬ В РОССИИ ЭТО
Var n,i,max:integer;
a:array [1..1000] of integer;//объявляем массив
begin
writeln('Введите количество чисел');
readln(n);
for i:=1 to n do begin
readln(a[i]);
if a[i]>max then
max:=i;
end;
writeln('Индекс максимального элемента массива =', max);
end.
Var a:longint;
begin
read(a);
if a>0 then
a:=a+1;
<span>end.
</span>