Составьте программу: возведение чётного числа в квадрат, а нечётного - в куб

Создаем переменную типа real:

chis : real;

Порядок программы будет следующим:

1 шаг: пользователь вводит число:

readln (chis);

2 шаг: программа проверяет с помощью условия if четное ли число, введенное на первом шаге:

if (chis mod 2 = 0) then

3 шаг: если условие прошло, возводим это число во вторую степень функцией sqr ():

chis : = sqr (chis);

4 шаг: если условие не прошло, возводим это число в третью степень функцией power ():

chis : = power (chis, 3);