ПОМОГИТЕ ПОЖАЛУЙСТА С ИНФОРМАТИКОЙ!!!

Question

ПОМОГИТЕ ПОЖАЛУЙСТА С ИНФОРМАТИКОЙ!!!

---

Answer 1

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

begin
  var (a,b,c):=ReadReal3('Введите через пробел a,b,c:');
  if a*a+b*b=c*c then Writeln(a+b+c)
  else Writeln(Abs(a*b*c))
end.

Примеры
Введите через пробел a,b,c: 3 -4 7.11
85.32

Введите через пробел a,b,c: -3 4 5
6

Answer 2

Var a, b,c, d :real;
begin
readln(a);
readln(b);
readln(c);
if a*a+b*b:=c*c then
begin
d:=a+b+c;
writeln(d);
end
else
begin
d:=a*b*c;
end
end.

Comments

спасибо огромное!