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

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