Question

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

Answer 1

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.