Решите пожалуйста даю 99 баллов

Question

Решите пожалуйста даю 99 баллов

---

Answer 1

Program Perimeter;
Var a,b,c,p: real;
Begin
Writeln('Введите 3 стороны через пробел: ');
Readln(a,b,c);
p:=a+b+c;
Write('периметр: ',p);
End.