Решить на языке программирования pascal: найти сумму натуральных четных чисел в промежутке от 1 до 13. если эта сумма больше 15, вывести сообщение "много! ", в противном случае вывести сообщение "мало! ".

Var
  a       :  array [1..100] of longint;
  sum,i : longint;
begin
sum:=0;
for i:=1 to 13 do begin readln(a[i]); sum:=sum+a[i]; end;
if sum>15
  then writeln('Много')
  else writeln('Мало');

end.