Даны целые числа: a, b, c, d сложить только те из них, которые делятся на 3 или на 5 - Pascal ABC

Формулировка задачи:

СРОЧНО СРОЧНО!ХЭЛП!ПОМОГИТЕ Даны целые числа: a, b, c, d сложить только те из них,которые делятся на 3 или на 5 составить программу

помогите кто нибудь,пожалуйстаа

Решение задачи: «Даны целые числа: a, b, c, d сложить только те из них, которые делятся на 3 или на 5»

Листинг программы

uses crt;
var a,b,c,d,res:integer;
begin
read(a,b,c,d);
if ((a mod 3 = 0) or (a mod 5 = 0)) then res:=res+a;
if ((b mod 3 = 0) or (b mod 5 = 0)) then res:=res+b;
if ((c mod 3 = 0) or (c mod 5 = 0)) then res:=res+c;
if ((d mod 3 = 0) or (d mod 5 = 0)) then res:=res+d;
writeln(res);
end.

Объяснение кода листинга программы

В начале программы подключается модуль CRT (используется для работы с консолью).
Затем объявляются переменные a, b, c, d, res типа integer (целое число).
Далее происходит чтение значений переменных a, b, c, d с помощью процедуры read.
Затем проверяется условие: если a делится на 3 или на 5 (mod 3 = 0 или mod 5 = 0), то к результату прибавляется значение переменной a.
Аналогично проверяется условие для переменных b, c, d и результат прибавляется к res.
В конце программы выводится значение переменной res с помощью процедуры writeln.
Если ни одно из чисел не делится ни на 3, ни на 5, то результатом будет 0.