Для n произвольно введённых чисел с клавиатуры вычислить сумму тех , которые больше , чем заданное число А .очень нужно решение...

 var i,A,n,sum,v:integer;beginwrite('Введите заданное А'); readln(A);write('Введите число вводов n'); readln(n);for i:= 1 to n dobeginwrite('Введите число'); readln(v);if v > A  then sum:= sum +v;end;write('Сумма = ', sum);end.