efisiensi dan daya semu

program efisiensi_daya_semu;
uses crt;
var
pilihan: integer;
n, pout, p: real;
s, v, i: real;

procedure efisiensi;
begin
writeln('Menghitung efisiensi daya');
write('Masukkan Pout: '); readln(pout);
write('Masukkan P: '); readln(p);
n :=(pout/p)*100;
write('efisiensi adalah: ', n:2:0); writeln('%');
end;

procedure daya;
begin
writeln('Masukkan daya semu motor');
write('Masukkan v: '); readln(v);
write('Masukkan i: '); readln(i);
s :=v*i;
write('daya semu motor adalah: ',s:2:0); writeln('%')
end;

begin
writeln('_____Rumus efisiensi dan daya semu_____');
writeln('[1] menghitung efisiensi daya');
writeln('[2] menghitung daya semu');
writeln('_________________________________________');
write('Pilih 1/2: '); readln(pilihan);

writeln;
if pilihan=1 then
begin
efisiensi;
readln;
end;
if pilihan=2 then
begin
daya;
readln;
end;
readln;
end.