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

uses crt;varb,h,S:real;beginwriteln('Поиск площади  треугольника по стороне и высоте');writeln(); write('Введите длину стороны в основании треугольника - ');   readln(b);    writeln();    write('Введи высоту треугольника - ');     readln(h);     writeln();      S:=(b*h)/2;       writeln('Ответ: ',S);end.