PASCAL Program bebas mengenai record

Contoh program menggunakan record berikut.

Program destgo;

Uses crt;

Type

      Akhir = record

      Keliling : real;

      Alas : real;

      Tinggi : real;

      End;

Var

      Segitiga : akhir;

Begin

Clrscr;

With segitiga do

      Begin

      Write (‘Masukkan Alas = ‘); readln (alas);

      Write (‘Masukkan Tinggi = ‘); readln (tinggi);

      Keliling := 1/2 * alas *tinggi;

      Writeln (‘Keliling segitiga = ‘,keliling);

      End;

      Readln;

      End.