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)».
Блок-схема в приложенном фото.
