Ответ:

program calculator ;

var

A, s, p:Intger;

begin

readln(a);

S:= a div 2;

If s=0 then

If 1<a and a<20 then a:=sqr a else a:=a*a*a

WrteLn(a) ;

end.

Объяснение: узнаем значение переменной с помощью read затем чему равна s при помощи mod и узнаем четное ли оно или нет, затем входит ли оно в интервал и возводим в квадрат если совпадает если нет то в куб. Извените за частые изменения, стараюсь объяснить по понятней.