Дан массив целых чисел из 44 элементов, заполненный случайным образом числами из промежутка [-18; 30]. Вывести на экран элементы с 13 по 26!

Var mass:array[1 ... 44] of integer;

i:integer;

begin

randomize;

for i:=1 to 44 do

begin

mass[i]: = (random (31) - random (19)) ;

if (i>12) and (i<27) then writeln ('номер ', i,' равен ', mass[i]) ;

end;

end.

Пример работы:

номер 13 равен 15

номер 14 равен - 17

номер 15 равен - 16

номер 16 равен - 3

номер 17 равен 10

номер 18 равен 29

номер 19 равен - 17

номер 20 равен 1

номер 21 равен - 1

номер 22 равен 8

номер 23 равен - 16

номер 24 равен 26

номер 25 равен - 4

номер 26 равен 15