Помогите пожалуйста супер срочно

Question

Помогите пожалуйста супер срочно

---

Answer 1

program summa

var n,a,s,i:integer;

begin

read(n);

s:=0;

for i:=1 to n do

begin

read(a);

if (a mod 10 = 3) then

s:=s+a;

end;

Writeln(s);

end.

Comments

не получилось

---

Попробуй if ( a mod 3=0)

---

Program1.pas(3) : Встречено 'var', а ожидалось ';'

---

Тогда сразу после summa ;

---

теперь супер ответственный момент- ввод данных