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

держи, тут писать то 5 минут
program a2;{ вычисление площади треугольника}
uses crt;
var a,h,s:real;
procedure dd;
begin
writeln('Введите значение стороны треугольника == >');
readln(a);
writeln('Введите значение высоты треугольника == >');
readln(h);
s:=(a*h*0.5);
if a > 0 then
writeln('Площадь треугольника равна ==>',s:8:3,' квадратных едениц')
else writeln('Сторона не может быть отрицательной');
end;
begin
clrscr;
writeln('Расчёт площади треугольника, ввод вручную');
dd;
readln;
readkey;
end.

держи, тут писать то 5 минут
program a2;{ вычисление площади треугольника}
uses crt;
var a,h,s:real;
procedure dd;
begin
writeln('Введите значение стороны треугольника == >');
readln(a);
writeln('Введите значение высоты треугольника == >');
readln(h);
s:=(a*h*0.5);
if a > 0 then
writeln('Площадь треугольника равна ==>',s:8:3,' квадратных едениц')
else writeln('Сторона не может быть отрицательной');
end;
begin
clrscr;
writeln('Расчёт площади треугольника, ввод вручную');
dd;
readln;
readkey;

var a,b,s,h: real;
begin
write ('введите длину основания');
read (b);
write ('введите длину высоты');
read (h);
s:=1/2*b*h;
a:=sqrt(sqr(b)/2);
writeln ('Площадь =',s);
writeln ('Боковые стороны равны =',a);
end.