Question

Составьте, пожалуйста, программу в Pascal

Answer 1

var
a,b: real;
begin  
write('Vvedite kateti a, b: ');  
readln(a,b);  
writeln('P = ',a + b + sqrt(a*a+b*b):0:2);  
readln;
end.

Answer 2

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

begin
  var (a,b):=ReadReal2('Введите через пробел величины катетов: ');
  Writeln('Периметр равен ',a+b+Sqrt(a*a+b*b):0:5)
end.

Пример
Введите через пробел величины катетов:  6.3 5.42
Периметр равен 20.03062