Ответ:

program test;

var a,b,c: real;

begin

readln (a,b);

if b>a then

if a=10 then c:=2*sqr(a) else c:=b*b/2

else c:=a+b;

writeln(c)

end.

Объяснение:

Смотри картинки

Параллелограмм - ввод или вывод данных

Ромб - условный оператор (проверка условия, если условие выполняется, то идём по линии ДА, в противном случае - по линии нет)

Прямоугольник - действия (вычисления)