С клавиатуры вводится число n, за ним массив из n целых чисел и число x. Найдите…

Vara: array [1… 100] of integer; n,i,x,k: integer; beginwrite ('n='); readln (n); for i: =1 to n dobeginwrite ('A[',i,']='); readln (a[i]); end; write ('x='); readln (x); k: =0; for i: =1 to n doif a[i]=x*x theninc (k); writeln ('Количество=',k); readln; end.