Помогите написать программку на паскале, кто сумеет - 25 баллов, задание

Помогите написать программку на паскале, кто сумеет - 25 баллов, задание под номером 15!

Задать свой вопрос
1 ответ
S=ab/2 b=2S/a;
c=(a+b)
P=a+b+c

// PascalABC.NET 3.3, сборка 1561 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,S):=ReadReal2('Введите катет и площадь:');
  var b:=2*S/a;
  var c:=Sqrt(a*a+b*b);
  var P:=a+b+c;
  Writeln('P=',P)
end.

Пример
Введите катет и площадь: 10.5 30.84
P=28.4057957048505
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт