не получается сделать программку в ABCпаскаль, в чем ошибка? uses crt;vara:

А задачку можно?

А, снимаю.

найти сумму 1-ых 3-х частей массива

При чём тут тогда 15?

Uses crt;
var
a: array [1..20] of integer;
k,s,i:integer;
begin
writeln;
for i:= 1 to 15 do readln(a[i]);
for i:= 1 to 15 do write(a[i],' ');
writeln;
for i:= 1 to 15 do
 if a[i] mod 2 = 0 then
  begin
  S:=S+a[i];
  k:=k+1;
  end;
writeln('S = ',s,' k = ',k);
end.

Пример:
14
54
87
20
75
12
67
84
35
11
51
34
80
56
87
14 54 87 20 75 12 67 84 35 11 51 34 80 56 87 
S = 354 k = 8

В var нет переменных i и S. В остальном задачка принимает 15 чисел и инспектирует, сколько чётных посреди их.
P.S. Надобно переделать!Для чего ложить член массива с количеством? И ещё - сначала опиши, что такое S - программа же не знает, с чем ложить S!