Нати номера тех элементов массива , значение которых больше заданного числа C

var c,n,,i:integer; a:array[1..1000] of integer;begin write('Write size array: '); readln(n); write('Write c: '); readln(c); for i:=1 to n do begin read(a[i]); if a[i]>c then write(a[i],' '); end; readln; readlnend.

Исправилошибку

c,n,i:integer;a:array[1..1000] of integer;beginwrite('Write size array: '); readln(n);write('Write c: '); readln(c);for i:=1 to n dobeginread(a[i]);if a[i]>cthen write(a[i],' ');end;readln;readlnend.

Я тупой)

varc,n,i:integer;a:array[1..1000] of integer;beginwrite('Write size array: '); readln(n);write('Write c: '); readln(c);for i:=1 to n doread(a[i]);for i:=1 to n do if a[i]>cthen write(a[i],' ');readln;readlnend.

var  c,n,k,i:integer;  a:array[1..1000] of integer;begin write('Write size array: '); readln(n); write('Write c: '); readln(c); k:=0; for i:=1 to n do  begin   read(a[i]);   if a[i]>c    then inc(k);  end; writeln(k); readln; readlnend.