Посчитать сумму чисел кратных 7 и оканчивающаяся цифрой 1.Всего должно быть 3 числа НАПИСАТЬ ПРОГРАММУ И АНАЛИЗ ЖЕЛАТЕЛЬНО

// Это комментарии и они не влияют на выполнение программы var num1:Integer; //число 1 num2:Integer; //число 2 num3:Integer; //число 3 summ:Integer; //суммаbegin writeln('введите три числа'); read(num1, num2, num3); //вводим три числа if (num1 mod 10 = 1) and (num1 mod 7 = 0) then //при делении на 10, остаток это будет последней цифрой //затем проверям кратно ли num1 7, если да то прибавляем его к сумме summ:=summ+num1;//тоже самое выполняем с num2 if (num2 mod 10 = 1) and (num2 mod 7 = 0) then summ:=summ+num2;//и num3 if (num3 mod 10 = 1) and (num3 mod 7 = 0) then summ:=summ+num3; write('Сумма: ',summ);//выводим суммуend.