Zadacha 5 (2)

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

    ans := (a mod 2 = 1);
    if ans then
        writeln('Число ', a,' нечётное')
    else
        writeln('Число ', a, 'чётное');

    ans := (b mod 2 = 1);
    if ans then
        writeln('Число ', b,' нечётное')
    else
        writeln('Число ', b, ' чётное');

    ans := (c mod 2 = 1);
    if ans then
        writeln('Число ', c,' нечётное')
    else
        writeln('Число ', c, 'чётное');
end.