Função para verificar se determinado numero é impar ou par

Function ParouImpar(num : integer): string;
If Num mod 2 = 0 then
result:= 'Par'
else
Result:= 'Ímpar';

end;