Выводить на экран слово "подходит" если водимое пользователем целое число является нечетным или является круглым числом.(сделать с помощью оператора CASE)
Programm hh; var a,b,c : real; begin read(a); b:= a mod 2; if d = 0 then begin writeln('подходит'); end end.