//фам№1Ввести с клавиатуры число а, если оно четное, то вывести его и сообщение ,
// иначе вывести сообщение, что оно нечетное.
var a: integer ;
begin
read(a);
if a mod 2
= 0
then
writeln(' число четное', a)
else
writeln(' число не четное', a) ;