Создать паскаль программу,которая должна выдать вычисления от 1 до 5,вычислить гипотенузу по катетам, вычислить периметр треугольника,только письменный вариант

Program n_1; 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('c = ', c); writeln('P = ', P); readln; end.