Составить алгоритм для определения гипотенузы и периметра…

Program pr1; Uses Crt; Var a,b: integer; c,d: real; BeginWriteLn ('Введите значение первого катета'); Read (a); WriteLn ('Введите значение второго катета'); Read (b); c: =(a*a+b*b); d: =sqrt (c); WriteLn ('Гипотенуза=', d); ReadLn; End.