В массиве, состоящем из 12 чисел, вычислить произведение элементов, значение которых больше 50. ПОМОГИТЕ ПОЖАЛУЙСТА, ОЧЕНЬ НУЖНО!!!!!

60-27=33 книги во 2день33+12=55 книг в 3день

1) 60 - 27 = 33 (книги) выдано во 2 день2)33 + 12 = 45 (книг) выдано в 3 деньОтвет: 45 книг выдали в третий день

//Pascal ABC.NET Версия 2.2 Сборка 790var ar:array[1..12] of integer;i,s:int64;begin;s:=1;for i:=1 to 12 dobegin;readln(ar[i]);if ar[i]>50 then s*=ar[i];end;writeln(s);end.Пример ввода:1 2 3 4 5 6 7 50 50 51 51 70Пример вывода:182070