Составьте программу вычисления потенциальной энергии тела

Progrom potEnigi (input, output);
var m, h, e:real;
begin
writeln ('введите массу тела: ');
read (m);
writeln ('введите высоту на которой находится тело: ');
read (h);
e:=m*h*9.8;
writeln (e);
end.