ДАЮ 25 БАЛЛОВ
Составьте блок-схему и программу к следующей задаче:

Запрашиваются два числа. Если больше первое число, те

вычисляется их сумма, а если второе больше первого, то разность, а

если они равны, то произведение.

ДАЮ 25 БАЛЛОВ (блок-схему можно не делать)

Program TwoNumbers;

Var a,b: integer;

Begin

ReadLn(a,b);

If a>b then WriteLn(a+b);

If a<b then WriteLn(b-a);

If a=b then WriteLn(a*b)

End.