составьте программу, проверяющую, верно ли утверждение…

Program chet; var sum: integer; a,b: integer; beginwriteln ('Введите число a: '); readln (a); writeln ('Введите число b: '); readln (b); sum: =a+b; If (sum mod 2=0) then writeln ('Четное') Else writeln ('Не четное'); End.