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