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

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

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.