Напишите программу которая для последовательности натуральных чисел выводит сумму всех входящих в последовательность чисел, меньших 50, но больших 10. количество чисел не превышает 100. введенные числа не превышают 300. программа должна вывести одно число-сумму всех входящих в последовательность чисел, меньших 50, но больших 10
a,i,sum : integer;
begin
for i:=1 to 10 do begin
read(a);
if (a>10) and (a<50) then sum:=sum +a;
end;
write(sum);
end.