(паскаль) даны числа от 1 до n. найти произведение чисел кратных 3 и оканчивающихся на 1. учтите, я в 9 классе. и прошу, ниже решения-программы напишите объяснение(какой буквой что обозначили и что означает та или иная строчка или в таком виде(пример: вводим, далее делаем это, потом, чтобы сделать ну и заранее .

Разъяснения разместил в код программы в виде комментариев //объявление переменных //n - количество чисел //p - произведение найденных чисел //i - переменная для организации цикла var   n, p, i: integer; begin   //переменная p = 1,   //так как в процессе работы программы в ней   //накапливается произведение найденных чисел   p : = 1;   write('введите количество чисел ');   //в n - количество вводимых чисел   readln(n);   // цикл со счетчиком в котором вводим n чисел,   for i : = 1 to n do       // проверяем очередное значение i на кратность 3       // и выясняем, заканчивается ли это число на 1.       // для этого используем целочисленное деление.       // mod - остаток от деления       // если i mod 3 = 0, значит i кратно 3       // если i mod 10 = 1, значит i оканчивается на 1             if (i mod 3 = 0) and (i mod 10 = 1) then           p : = p * i; //умножим p на найденное число   //вывод произведения найденных чисел   writeln('искомое произведение ', p); end. тестовое решение: введите количество чисел 81 искомое произведение 86751

C++ :

#include <iostream>

#include <conio.h>

using namespace std;

int main() {

setlocale(0, "RU");

int r, b;

while (true) {

 cout << "Введите количество треугольников: ";

 cin >> r;

 cout << "Введите количество овалов: ";

 cin >> b;

 if (r <= b) {

  cout << "Истинно";

 }

 else {

  cout << "Ложно";

 }

 _getch();

 system("cls");

}

return 0;

}