Найти площадь треугольника 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.