Pascal/Вводятся 4 числа – длины отрезков. Найти максимальную площадь треугольника составленного из трёх отрезков этого набора или написать, что таких треугольников нет.

1. начало

2. оденься

3. выйти из дома

4. если есть машина

  5.то сесть в машину

  6. завести машину

  7.начать путь следования по дороге

  8.доехать до села

  9. выйти из машины

иначе 10. дойти до остановки

          11.дождаться автобуса

          12. зайти в автобус

          13. доехать до села

          14. выйти из автобуса

15. конец

программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

№5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.  

a в квадрате плюс b в квадрате:

  sqr(a) + sqr(b);

я думаю что основанием будет число 7 

проверка: 7^2*1+7^1*2+7^0*2= 49+14+2=65