New Zadacha Rework

program Zadacha5_Reworked_55555;

function IsEvenOrOdd(num:Integer):Boolean;
var
Raw:Boolean;
begin
Raw := (num mod 2 = 1);
if Raw then
        writeln('Число ', num,' нечётное')
    else
        writeln('Число ', num, ' чётное');

IsEvenOrOdd := Raw;
end;

var
ans:Boolean; a,b,c:Integer;
begin
    read(a,b,c);

    IsEvenOrOdd(a);
    IsEvenOrOdd(b);
    IsEvenOrOdd(c);
end.