Repetisi7(Contoh-Variable-Integer-&-Single-Pengaplikasian)

program repetisi7;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

{$R *.res}
var
 x, y: Integer;
 Res: Single;
begin
  Write('Masukkan Angka Pertama Anda Secara Acak : ');
  Readln(x);
  Write('Masukkan Angka Ke-dua Anda Secara Acak : ');
  Readln(y);
  Res:= x / y;
  Writeln('Hasil Pembagian dari ', x, ' Dan ', y, ' Adalah : ');
  Writeln(x, ' / ', y, ' = ', Res);
  Writeln('Tekan Enter untuk Keluar');
  Readln;
end.