Паскаль,помогите сделать,умоляюююююююююююююююююю

program per;

var  

 a,b,c,p,p2: real;  

begin

writeln('Введите катеты прямоугольного треугольника: ');

readln(a,b);

c :=sqrt(a*a+b*b);

writeln('Гипотенуза = ',c);

p:=(a+b+c)/2;

p2:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Площадь равна ', p2);

writeln('Периметр равен', a + b + c);

end.