Дан массив A(m), m≤16 . Найти сумму S элементов,
удовлетворяющих условию Ai >12 , и их количество K . Вывести на
печать исходный массив и величины S и K

Const nx = 50;Var A:array[1..nx]of integer; i,m,s,k:integer;BeginWriteLn('Введи количество элементов массива'); Read(m); For i:= 1 to m do beginA[i]:= random(50)-5;if A[i]> 12 then begins:= s + A[i];k:= k + 1;write(A[i]:3);end;end;writeln; write('s = ',s:3,'k = ', k);end.