Найдите произведение всех двузначных нечетных натуральных чисел

Программа на языке Турбо Паскаль 7.0

Вычисляет произведения всех нечетных двухзначные чисел, введенных с клавиатуры:

program q; / / Начало любой программы

uses crt; / / Подключение модулей

var a, a1, b, c: integer; / / Ввод переменных целочисленного типа

begin / / Начало исполняемого кода

c:=1; / / Присваиваем переменной с, хранящей произведение значения 1

Если этого не сделать, то не сработает счетчик.

writeln; / / Выводит надпись

readln (a1) ; / / Считывает число, каторое вы ввели и присваевает переменной a1 его значение

for a:=1 to a 1 do begin / / Начинает цикл от, повторяющийся нужное количества раз.

writeln; / / Выводит надпись

readln (b) ; / / Считывает введенное число и присваевает его значение переменной b

if (b9) and (b mod 2=1) then c:=c*b; //Оператор условия.

Проверяет, двузначное ли это число (больше 9 и меньше 100) и проверяет, нечетное ли оно по остатку от деления на 2

//Если да, то присваевает с значение c*b. В первый раз это будет 1*b, во второй, то, что получилось, умножить на следующее b и т. д.

end; / / Заканчивает цикл

writeln ('Произведение равно: ', c) ; / / Выводит результат

readln; //Ждет нажатия на enter

end.//Конец программы