program reverb;
 uses crt;



var
  i, rev_round, rev_trunc : integer;
  temp, rev  : double;
  wy : integer;
begin
clrscr;

 write('Input temp: ');
  readln(temp);

  rev := XZ / temp;

   rev_round := round(rev);
   rev_trunc := trunc(rev);

 writeln('Reverb: ', rev:6:5);
 writeln('Reverb rounded: ', rev_round);
 writeln('Reverb truncated: ', rev_trunc);

 writeln;
 writeln;
  writeln('   Rounded predelay          |          Truncate predelay');
  writeln('---------------------------------------------------------');

   wy := wherey;

    for i := 1 to rev_round do
       if rev_round mod i = 0 then
          begin
            gotoxy(10, wherey);
            writeln(i);
          end;

   gotoxy(1,wy);
    for i := 1 to rev_trunc do
       if rev_trunc mod i = 0 then
          begin
            gotoxy(48, wherey);
            writeln(i);
          end;


 readln;
end.