Program Energi_listrik;
procedure hitung (v,i,t : real);
var
E:real;
begin
E:=v*i*t;
writeln(#20,’Nilai E=’,E);
End;
var
v,i,t:real;
Begin
writeln (‘tegangan=v?’);
readln (v);
writeln (‘arus=i?’);
readln (i);
writeln (‘hambatan=t?’);
readln (t);
hitung(v,i,t);
End.
