Составьте программу для вычисление количества теплоты , полученной при парообразовании m эфира , если его теплота парообразования l pascal

Var
L,m:real;
Begin
Write('L = ');Read(L);
Write('m = ');Read(m);
Write('Q = ',L*m,' Дж')
End.