Напишите программу, которая в последовательности натуральных...

Задание:

Напишите программу, которая в последовательности натуральных чисел выводит сумму всех входящих в последовательность чисел, меньших 50, но больших 10. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 100. Введенные числа не превышают 300.
Программа должна вывести одно число - сумму всех входящих в последовательность чисел, меньших 50, но больше 10.

Пример работы программы:

Решение:

1. Инициализация переменных;
2. Ввод количества чисел в последовательности;
3. Обнуление переменной суммы;
4. Цикл от 1 до количества чисел в последовательности
   1. Ввод числа последовательности;
   2. Если число меньше 50 и число больше 10, то добавить его в сумму.
5. Вывести значение суммы.

var n, i, a, sum : integer; // инициализация переменных
begin
 readln(n); // ввод количества чисел в последовательности
 sum := 0; // обнуление переменной суммы
 for i := 1 to n do // цикл от 1 до количества чисел в последовательности
 begin
 readln(a); // ввод числа последовательности
 if (a < 50) and (a > 10) then 
 sum := sum + a; // если число меньше 50 и число больше 10, то добавить его в сумму 
 end; 
 writeln (sum); // Вывести значение суммы
end.