Repetisi4(variable-Single)

program repetisi4;

{$mode objfpc}{$H+}

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

{$R *.res}
var
  x: Single;
begin
  x:= 1.8;
  Writeln('Kendaraan saya memiliki kapasitas bahan bakar', x, 'Liter');
  Writeln('Tekan Enter untuk keluar');
  Readln;
end.