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

Если это Паскаль, то вот:program prog1;var h, a: integer;P, b, S: real;beginwrite('Высота=');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.