Вычислить периметр и площадь прямоугольного треугольника , у которого длина 1 катета в 2 раза > длины 2 катета ;длина гипотенузы = c — Pascal(Паскаль)

uses crt;
var c,p,s:real;
 
begin
 clrscr; 
 write('C-> ');
 readln(c);
 p:=c+c/sqrt(5)+2*c/sqrt(5);
 s:=sqr(c)/5;
 writeln('P = ',p:0:4);
 writeln('S = ',s:0:4);
 readln;
end.