Создать одномерный массив A состоящий из 15 элементов заполнить с егооп правилу: каждый элемент массиваравен произведению его номера и числа Z вводимого с клавиатуры. посчитать сумму элементов больгих 40

var a:array [1..15] of integer; i,z,s:integer; begin write ('Z = ');readln(z);  for i:=1 to 15 do begin a[i]:=i*z; if a[i]>40 then s:=s+a[i]; write (a[i],' ');  end; writeln; writeln ('Summa: ',s); readln; end.  

Program Mysmka; uses crt; const n=15; var   a:array[1..n] of real;   i:integer;   z,sum40:real; begin   writeln('*** alphaues is thinking... ***');   writeln('***          OK             ***');   writeln();   write('Введите загадочное число Z ');   readln(z);   writeln('Элементы массива:');   {создание и вывод массива}   sum40:=0;   for i:=1 to n do     begin       a[i]:=i*z;       write (a[i]:7:2);       if a[i]>40 then sum40:=sum40+a[i];     end;   writeln();    writeln('Сумма чисел, больших 40: ',sum40:7:2);     end.