Паскаль! ! Вычислите значение выражения?? ? Срочно!!!

Надеюсь, правильно понял:

function Uchis_bleat(X,Y:integer):integer;
begin
if x mod 3 = 0 then
begin
result:=x*x*x;
exit;
end;
if x mod 3 = 1 then
begin
result:=x;
exit;
end;
result:=2*abs(x*y); //здесь умножил на 2 потому, что ты это в вопросе есть
end;