program raf105;

var a:integer;

begin

write('Введите число: ');

readln(a);

if ((a mod 2)=0) and (a>=1) and (a<=20)

 then writeln('Вывод: ',a**2)

 else writeln('Вывод: ',a**3);

end.

Язык программирования PascalABC