Ввести с клавиатуры значение площади прямоугольного треугольника.( треугольник равнобедренный). вывести на экран значение катетов, гипотенузы. использовать процедуру для получения результатов "выходные переменные"

Program Project2;
 {$APPTYPE CONSOLE}
var s,a,c:Real;
begin 
 Readln(s); 
 s:=s*2; 
 a:=Sqrt(s); 
 c:=Sqr(a)+sqr(a); 
 writeln('katetu',a:0,' gipotenusa',c:0); 
 readln;
end.