Напишите функцию, которая будет проверять, является ли число четным. функция должна иметь тип boolean, а в качестве параметра ей будет передаваться целое число.

function proverka(i :integer):boolean;
begin if i mod 2=0 then
proverka:=true
else
proverka:=false;
end;