samo malkice -jedna komanda u kodu

Code:

function Nadji(b,d, prec : Integer):String;
var i, j: Integer;
  s:String;
begin
  s:= inttostr(b div d)+'.';
  i := 0;
  b := b mod d;
  while i <= prec do
    begin
      b := b*10;
      s := s+ inttostr(b div d);
      b := b mod d;
      inc(i);
    end;
  Nadji := S;
end;

Code:

program na_decimale (input,output);
uses crt;
var b,d,dec:longint;
function Nadji(b,d,dec:Integer):String;
var i,j,e: Integer;
   s,inttostr,a:String;
begin
  str((b div d),inttostr);
  s:=inttostr+',';
  i := 0;
  b := b mod d;
  while i<dec do
    begin
      b:=b*10;
      e:=b div d;
      str(e,a);
      s:=s+a;
      b:=b mod d;
      inc(i);
    end;
  Nadji:=S; readln;
end;
begin
clrscr;
write('DJELJENIK= ');
read(b);writeln;
write('djelilac= ');
read(d); writeln;
write('na kolko decimala= ');
read(dec);writeln;
writeln('REZULTAT');
WRITELN;
writeln(b,'/',d,' na ',dec,' decimala je ');
writeln;
write(nadji(b,d,dec));
writeln;
writeln('                      "ENTER"'); READLN;
end.

Code:
str((b div d),inttostr);