С помощью графического редактора можно редактировать изображение и рисовать его.
Если я всё правильно понял, то должно быть так:
var a:integer;
begin
if a mod 2 = 0 then a:=a*a else a:=a*a*a;
write(a);
end.
Нужно знать как задаётся эта заштрихованная область.
Например для окружности нужно что бы x^2+y^2<R где R радиус, x,y координаты точки.
В общем случае нужно что бы выполнялось неравенство при поставление в него координат заданных пользователем.
да могут норазные примеры например волны итд