Выводить на экран слово "подходит" если водимое пользователем целое число является нечетным или является круглым числом.(сделать с оператора case)

Programm hh;
var a,b,c : real;
begin
read(a);
b:= a mod 2;
if d = 0 then 
begin
writeln('подходит');
end
end.