Дан равнобедренный треугольник известны основания и высота Составить программу для нахождения периметра и площади данного треугольника

Если это Паскаль, то вот:

program prog1;

var h, a: integer;

P, b, S: real;

begin

write ('Высота=');

readln (h);

write ('Основание=');

readln (a);

S:=h*a/2;

b:=sqrt ((a/2) * (a/2) + h*h);

P:=b+b+a;

writeln ('Периметр = ', P);

writeln ('Площадь = ', S);

end.