Заданы два числа В и С.Если разность этих чисел четное число, а частное от деления этих чисел кратно 3, тогда Распечатать сумму кубов этих чисел, Иначе разность квадратов большего и меньшего чисел Помогите пожалуйста решить нужна блок-схема, (язык Паскаль) ❤️

var b,c:integer;

BEGIN

readln(b,c);

if (c>b) then swap(b,c);

if ((b-c) mod 2=0) and (b mod c=3) then

writeln(c*c*c+b*b*b) else

writeln(abs(sqr(b)-sqr(c)));

end.