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.
Объяснение:
Смотри картинки
Параллелограмм - ввод или вывод данных
Ромб - условный оператор (проверка условия, если условие выполняется, то идём по линии ДА, в противном случае - по линии нет)
Прямоугольник - действия (вычисления)
