Найти площадь треугольника ah, ввести нужно в турбо паскале (информатика 9 класс)

Program myprogram2;

var
 a,h,s:real;

begin
 writeln(Введите длину основания a);
   write(a = );
     readln(a);
 writeln(Введите длину высоты h);
  write(h = );
   readln(h);
s:=0,5*a*h;
 write(Площадь треугольника с основанием ,a, и высотой ,h, равна = ,s);
  readln;
   readln;
end.