очень заранее Известен диапазон [0, 36]. Запишите его на языке программирования

2)Используя готовый листинг программы, переделать его к следующему

условию задачи: Дан массив Q, состоящий из 20 элементов целого типа.

Найти сумму элементов массива.

Program zadacha;

var

mass: array [1..15] of real;

i, z: integer;

begin

for i:=1 to 15 do

readln (mass[i]);

for i:=1 to 15 do

if mass[i]>8

then z:= z * mass[i];

writeln ('Сумма массива равна: z',) ;

end.

Объяснение: Собор святой Софии в Киеве является замечательным памятником Киевской Руси. При сооружении этого собора древнерусская архитектура уже обладала своими приемами монументального зодчества, хотя в основу киевского собора легла византийская система крестовокупольной церкви, с ее ясностью форм и логичностью композиции. От всех византийских храмов собор отличается числом куполов: их тринадцать, столько, сколько у несохранившегося деревянного храма Софии в Новгороде. Принцип постепенного, как бы ступенчатого нарастания массы здания от внешних стен до центрального купола, стал в 11-м веке последовательно проводиться в русском зодчестве. Различные размеры куполов, волнистые и живые линии закомар (полукруглых завершений фасадов), обширная внешняя галерея - все это создает сложное и в то же время гармоничное сочетание объемов и линий.

Var a:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
writeln ('Стоимость 2 пирожков = ',a*2);
writeln ('Стоимость 3 пирожков = ',a*3);
writeln ('Стоимость 4 пирожков = ',a*4);
writeln ('Стоимость 5 пирожков = ',a*5);
writeln ('Стоимость 6 пирожков = ',a*6);
end.

Если нужна программа с n кол-во пирожков, где n вводится с клавиатуры, то вот:

var a,n:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
write ('Введите кол-во пирожков: ');
readln (n);
writeln ('Стоимость ',n,' пирожков = ',a*n);
end.