Contoh program Torbo Pascal

Mengukur Voleme Batu

program mengukur_volume batu;

uses wincrt;

var

V1,V2:real;


V_batu:real;

begin clrscr;

writeln ('masukkan V1');

readln (V1);

writeln ('masukkan V2');

readln (V2);

V_batu:=V2-V1;

writeln ('V batu adalah=',V_batu:3:2);

readln;

end.