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

programm hh;var a,b,c : real;beginread(a);b:= a mod 2;if d = 0 then beginwriteln('подходит');endend.