Посчитать сумму чисел кратных 7 и заканчивающаяся цифрой 1.Всего должно быть

// Это комменты и они не оказывают влияние на исполнение программки

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.