Pascal информатика Как найти периметр прямоугольного треугольника в Pascal. Урок информатики. подскажите алгоритм

var
a, b, c, 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.