Gawai proteksi dan tahanan transmisi listrik

program FACHRUL;

uses crt;
var
x,y,z,i,d,e,f : real;
jawab,pilih: integer;


procedure tahanan;
begin
writeln ('kalkulator hitung tahanan kabel transmisi listrik')
writeln ('jenis penghantar: ');
read(1);
writeln('masukan nilai panjang penghantar: ');
read (x);
writln('masukan nilai ruas penghantar : ');
read(y);
z: =1*(x/y);
write ('nilai penghantar : ');
write(z)
writeln;
readln;
end;

procedure gawai;
begin
writeln ('kalkulator operasi hitung gawai proteksi; ');
writeln ('besar nilai pemutus pengatan arus listrik : ');
read(d);
e :=50;
f:=e/d;
writeln ('nilai gawi proteksi ;');
writeln (f);
writeln;
readln;
end;

begin
writeln('_____Hitung tahanan transmisi dan gawai proteksi listrik__________');
writeln('[1] menghitung tahanan transmisi');
writeln('[2] menghitung gawai proteksi');
writeln('_________________________________________');
write('Pilih 1/2: '); readln(pilih);
writeln;

if pilihan=1 then
begin
tahanan;
readln;
end;
if pilihan=2 then
begin
gawai;
end;
readln;
end;
else
begin
writeln(' ');
end;
readln;
end
end.