Определить, является ли введенное число N четным - Pascal

Формулировка задачи:

Определить является ли введенное вами число N четным. Для четного числа извлечь квадратный корень, если оно положительное, в противном случае - возвести в куб. Для нечетного числа вывести соответствующее сообщение.

Решение задачи: «Определить, является ли введенное число N четным»

Листинг программы

uses crt;
var
n:integer;
f:real;
begin
clrscr;
write('n=');readln(n);
if odd(n)=false then
 begin
  if n>0 then f:=sqrt(n) 
  else f:=n*n*n;
  writeln(f);
 end
else writeln(n,' nechetnoye chislo');
readln
end.

Объяснение кода листинга программы

В первой строке используется библиотека crt, которая является стандартной для языка Pascal.
Переменная n типа integer (целое число) инициализируется значением, введенным пользователем в ходе выполнения программы.
Переменная f типа real (число с плавающей точкой) инициализируется значением, которое вычисляется как корень из n, если n четное, или как nnn, если n нечетное.
Выводится значение переменной f.
Если n нечетное, то выводится сообщение n nechetnoye chislo.
Программа завершается после вывода сообщения.