Contoh program menghitung nilai tegangan dengan menggunakan Bahasa Pemrograman Turbo Pascal

Program Menghitung_Nilai_Tegangan;
var v,i,r : Integer
Write('Masukkan nilai kuat arus dalam ampere=');
readln(i);
Write('Masukkan nilai hambatan dalam ohmr=');
readln(r);
v := i*r
Writeln('Nilai Tegangan adalah=',v,'volt');
readln(v);
end.