Составить алгоритм и написать программу вычисления суммы а и в и определение её чётности.

var a,b,s:integer;

begin

read(a,b);

s:= a+b; //Узнаем сумму

Writeln (s);

if s mod 2 = 0 then Writeln ('Четное')

else Writeln ('Не четное');

end;

Если мой ответ вам выберите его лучшим :)                       Заранее