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

Question

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

---

Answer 1

1) var a:array [1..1000] of longint; n,s,i:integer;
begin 
readln(n); 
for i:=1 to n do
read (a[i]);
for i:=1 to n do
if a[i] mod 2=0 then s:=a[i]+5 else s:=a[i]-5;
writeln(S); readln; end.

Comments

3) var a:array [1..1000] of longint; n,s,i:integer;
begin
readln(n);
for i:=1 to n do
read (a[i]);
for i:=1 to n do
if a[i] mod 45=0 then k:=k+1;

---

writeln(k); readln; end.

---

и вместо s в var'е напишите k