Составить алгоритм, который определяет сумму четных
чисел из трех введенных a,b,c.  Если таких нет, то вывести
сообщение об этом. (Можно с объяснением пожалуйста)

var a,b,c,s:integer;//объявляем переменныеbegin s:=0;//инициализируем s readln(a,b,c);//вводим a,b,c if a mod 2=0 then s:=s+a//если а делится на 2 без остатка то прибавляем а else if b mod 2=0 then s:=s+b//то же с b     else if c mod 2=0 then begin s:=s+c;//то же с c       writeln(s);//вывод s    end   else writeln('Нет');//если нет чётных выводим сообщениеend.    

var a,b,c,d:integer;beginwriteln('Введите числа');readln(a,b,c);if (a mod 2=0) then d:=a;if (b mod 2=0) then d:=d+b;if (c mod 2=0) then d:=d+c;if d<>0 then writeln('Сумма чётных чисел равняется ',d)else writeln('Нет чётных чисел');end.