Для разных чисел вводимых с клавиатуры найдите сумму положительных не чётных.Написать программу на Паскале.

program summ;var n, sum : integer;begin writeln('Вводите числа (введите 0 для выхода):'); sum := 0; repeat readln(n); if ((n>0) and (n mod 2 <>0)) then sum := sum+n; until n=0; writeln ('Сумма положительных нечётных чисел равна ', sum);end.