Кукла - кулак
марка - рамка, карма
каприз - приказ
соринка - росинка
Вот держи мне поставил четыре
На паскале:
var a:integer;
begin
writeln('Введите целое положительное число');
read(a);
if a mod 2 = 0 then writeln('Число чётное')
else writeln('Число нечётное');
end.