Syntax:
Procedure Hitung;
Var Nil1,Nil2,Htg : real;
Begin
Write('Masukkan nilai I =
');ReadLn(Nil1);
Write('Masukkan nilai II = ');ReadLn(Nil2);
Htg := Nil1 + Nil2;
WriteLn('Hasil Penjumlahan = ',Htg:8:4);
End;
Begin
Hitung;
readln;
End.
ini contoh tampilan pada free pascal
kemudian run maka akan muncul tampilan prosedur hitung dengan nilai real
