составить программу вычисления площадь треугольника по формуле

program z1;var a,b,c,ha,hb,hc,s1,s2,s3:real;beginwriteln('введите основание и высоту (соответственно) первого треугольника');readln(a,ha);s1:=1/2*a*ha;writeln('площадь первого треугольника = ',s1);writeln('введите основание и высоту (соответственно) второго треугольника');readln(b,hb);s2:=1/2*b*hb;writeln('площадь второго треугольника = ',s2);writeln('введите основание и высоту (соответственно) третьего треугольника');readln(с,hс);s3:=1/2*с*hс;writeln('площадь третьего треугольника = ',s3);end.