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.