var a: array [1..9] of real; //Массив из 9 вещественных элементов i: integer; //Переменная для цикла begin for i:=1 to 9 do //Вводим элементы массива с клавиатуры begin writeln('Введите ', i, ' элемент массива'); readln(a); end; writeln('Сумма 3 и 5 элементов: ', a[3] + a[5]); {Выводим на экран сумму 3 и 5 элементов} end.