Значения мощности,измерянные в лошадиных силах,преобразуются в значения,измеренные в киловаттах (1 л. с.=0,735 квт)

Var lc:real;
Begin
  write('Кол-во лошадиных сил = ');
  readln(lc);
  write(lc * 0.735);
End.