ICT Bersama PasCal

uses wincrt;
var
Ep,m,g,h:real;
begin
write('masukkan massa benda:');readln(m);
write('masukkan gravitasi:')readln(g);
write('masukkan  tinggi benda:')readln(h);
Ep:=m*g*h;
writeln('energi potensialnya adalah:',Ep:5:1);
end.