clc; v=240; //potential diff in volt p=2000; //power in Watt disp((p/v),"Current in Ampere = "); //displaying result