Вопрос Помогите написать программу в Паскале.

[mongtr]

Заполните массив из 7-и чисел с клавиатуры и подсчитать общее количество чисел 3 и 5 в массиве.
Пример: Исходный массив: -1, 3, -2, 5, 3, 2, 8.
Количество элементов: 3.
Вроде что=то у меня выходило, но в конце программа не работает. Я уже не знаю как сделать.

 

[Whispering]

PascalABC
[THIDE="0"]progRAM MASSIV;
USES CRT;
var K,K1,i,n:integer;
x:array[1..10] of integer;
begin
WRITELN('Задайте количество элементов массива');
read;
WRITELN('Задайте элементы массива');
for I:=1 to n do
Readln (x);
K:=0;
k1:=0;
for I:=1 to n do
Begin
IF X=3 THEN INC(K);
IF X=5 THEN INC(K1);
writeLN(x:5);
end;
WRITELN('Троек:',K);
WRITELN('Пятерок:',K1);
WRITELN('Вместе:', K+K1);
end.[/THIDE]

 

[Danil]

Гав. if (a=3) or (a=5) then inc(k);

 

[димаййцуууу]

var a:array[1..10010] of longint;n,i,k:longint; Begin n:=7; for i:=1 to n do read(a); for i:=1 to n do if (a=3) or (a=5) then k:=k+1; write(k,); End.