Напишите код программы, которая будет вычислять периметр фигуры треугольника Program Perimeter;

Program Perimeter;

var

    a, b, c, S, P : real;

begin

    write('Введите катет a : ');readln(a);

    write('Введите катет b : ');readln(b);

  c := sqrt(sqr(a)+sqr(b));

     P := a + b + c;

    writeln('Периметр равен : ', P);

Readln
End.