Написал программу нахождения периметра треугольника
var
a, b, c: real;
p, s: real;
begin
Write('Введите 3 стороны треугольника: ');
readln(a, b, c);
p := a + b + c;
writeln('p=', p);
Написал программу нахождения периметра треугольника
var
a, b, c: real;
p, s: real;
begin
Write('Введите 3 стороны треугольника: ');
readln(a, b, c);
p := a + b + c;
writeln('p=', p);