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

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