Составить блок-схему и программу на языке паскаль

program F;

var F, A, B, C, x: real;

begin

read (A, B, C);

if B>C then x:=(B+C)

else if B=C then x:=(sqr(B));

F:=(A*x*x*x);

end.

Примечание: строчка «read (A, B, C)» означает ввод с клавиатуры значений А, В, и С. Если это не нужно, то её можно убрать (в этом случае программу невозможно будет выполнить на компьютере, ведь он не будет знать, чему равны А, В и С и не сможет производить над ними действия).

Также если требуется вывести получившееся значение F на экран, перед строчкой «end» нужно добавить строчку («writeln (F)».

Блок-схема в приложенном фото.