Program do liczenia Obsiewu trawą

Kod:

program Untitled;
    uses crt;
var
dzialka, worek, masawor : integer;
wielkosc, cena : Real;
wynik, wielkosc2 : Real;
begin
      clrscr;
      worek := 600;
      writeln('*** Kalkulator obsiewu trawy ***');
      writeln(' ');
      readln;
      clrscr;
      writeln('Podaj wielkosc dzialki w arach');
      readln(dzialka);
      wielkosc := dzialka*100;
      wynik := (wielkosc/worek);
      writeln('Ilosc wykorzystanych workow : ', wynik:3:1, ' szt');
      { Ilosc kilgoramow }
      masawor := 15;
      writeln('Kilogramy trawy : ', masawor*wynik:5:2, ' kg');
      { Cena }
      wielkosc2 := wielkosc/600;
      cena := 244;
      writeln('Koszt calego obsiewu : ', cena*wielkosc2:4:2, ' zl');
      readln;
end.