паскаль
помогите поже оч надо даю 20 баллов. Стас и Маша побывали в зоопарке. Папа спросил, когда дети вернулись, сколько животных они видели. Маша запомнила, сколько тигров, львов, жирафов, крокодилов, слонов, страусов, павлинов, обезьян и попугаев в каждой клетке. А Стас назвал число всех животных. Напишите программу, которая определяет, не ошибся ли Стас. Если не ошибся, то программа должна выводить +, иначе -.

Формат ввода:

a[1] – тигры

a[2] – львы

a[3] – жирафы

a[4] – крокодилы

a[5] – слоны

a[6] – страусы

a[7] – павлины

a[8] – обезьяны

a[9] – попугаи

sum – число названное Стасом

Пример ввода:

5

9

2

2

1

8

10

10

10

57

Пример ввода:

6

3

2

0

2

12

8

23

15

100

Формат вывода:

+ Стас правильно назвал количество всех животных

- Стас ошибся

Пример вывода:

+

Пример вывода:

-

var a: array [1..9] of integer;

i,s,sum:integer;

begin

for i:=1 to 9 do

begin

readln(a[i]);

s:=s+a[i];

end;

readln(sum);

if s=sum then writeln('+') else writeln('-');

end.