Question

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

Answer 1

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.

Answer 2

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