A következő programot hogyan tudnám Pascalban megvalósítani?

program Program1;

const

  HUZAL = 100;        {A huzal 100 m hosszúságú}

var

  Oldal: Double;      {Keret oldala}

  Keret: Double;      {Mennyi huzalra van szükség egy kerethez}

  KeretekSzama: Word; {A keretek száma}

  Megmarad: Double;  {Mennyi huzal marad meg}

begin

  {A program beolvassa a keret oldalának hosszát méterben.}

  Write('A keret oldalanak hossza meterben: ');

  Readln(Oldal);

  {Kiírja, hogy mennyi huzalra van szükség egy kerethez.}

  Keret := 4*Oldal + 2*0.05; {4 oldala van egy keretnek. Plusz 0.05 méteren fedi egymást a huzal 2 vége.}

  Writeln(Keret:0:3, ' meter huzalra van szukseg egy kerethez.');

  {Megállapítja a keretek számát.}

  KeretekSzama := Round(Int(HUZAL / Keret));

  Writeln(HUZAL, ' meter huzalbol ', KeretekSzama, ' darab keretet lehet kesziteni.');

  {Megállapítja, hogy mennyi huzal marad meg.}

  Megmarad := HUZAL - KeretekSzama*Keret;

  Writeln(Megmarad:0:3, ' meter huzal marad meg.');

  Readln;

end.