Составить алгоритм, который определяет сумму четных чисел из трех введенных a,b,c. Если...

Question

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

Answer 1

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.    

Answer 2

Var a,b,c,d:integer;
begin
writeln('Введите числа');
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.