Вычислите периметр и площадь прямоугольного треугольника если стороны треугольника вводятся с клавиатуры (a, b, c; a,d-катеты)

Program z1;var a,b,c,d,P,S:real;
begin
writeln ('Введите стороны треугольника');
readln (a,b,c);
P:=a+b+c;
writeln ('Периметр треугольника=',P);
writeln ('Введите катеты');
readln (a,d);
S:=((a*b)/2);
writeln ('Площадь прямоугольного треугольника=',S);
end.