Написать программу вычесления значения переменой а по формуле: а=k^2*1/2*sin(m)

Вот. Делай лучшим, если Введите угол: '); readln(m); write('Введите коэффициент k: '); readln(k); a:=sqr(k)/2*sin(m); writeln('a=',a:0:2); end.