Напишите программу на Паскале, которая определяет: сколько раз число 10 встречается среди элементов линейной таблицы А(n), состоящей из целых чисел.

var a:array[1..10] of integer;i, k: integer;begink:=0;for i:=1 to 10 do beginreadln(a[i]);if a[i] = 10 thenk:=k+1;end;write(k);end.