Someone

Program energia;
Uses CRT;
Var
        kezdet, veg, tomeg, energia : real;
Const
        faj = 4.2  ;
Begin
        ClrScr;
        WriteLn('K‚rem a kezdeti h‹m‚rs‚kletet:');
        ReadLn(kezdet);
        WriteLn('K‚rem a v‚gs‹ hŁm‚rs‚kletet:');
        ReadLn(veg);
        WriteLn('K‚rem a t”meget:');
        ReadLn(tomeg);
        energia := faj * tomeg * ( veg - kezdet );
        WriteLn('A bels‹ energia v ltoz sa', energia:0:2);
        ReadLn;
End.