Процес збильшення растрового зображення мае назву скажите​

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,h):=ReadReal3('Введите границы и шаг табуляции:');
  if a>b then Swap(a,b); // если перепутали границы
  var x:=a;
  while x<=b+h/2 do begin
    Write(x:10:5);
    var y:=Ln(x)/Tan(x);
    if real.IsNaN(y) or real.IsInfinity(y) then
      Writeln('       значение не существует')
    else Writeln(y:15:5);
    x+=h
    end
end.

Примеры
Введите границы и шаг табуляции: -5 5 1
  -5.00000       значение не существует
  -4.00000       значение не существует
  -3.00000       значение не существует
  -2.00000       значение не существует
  -1.00000       значение не существует
   0.00000       значение не существует
   1.00000        0.00000
   2.00000       -0.31722
   3.00000       -7.70704
   4.00000        1.19733
   5.00000       -0.47609

Введите границы и шаг табуляции: -1 1 0.2
  -1.00000       значение не существует
  -0.80000       значение не существует
  -0.60000       значение не существует
  -0.40000       значение не существует
  -0.20000       значение не существует
   0.00000       значение не существует
   0.20000       -7.93961
   0.40000       -2.16723
   0.60000       -0.74667
   0.80000       -0.21672
   1.00000        0.00000

Procedure KolDel(n:integer; var k:integer);
var i:integer;
begin
k:=0;
for i:=1 to n do
 if n mod i=0 then k:=k+1;
end;
var m,n,i:longint;
md,mx:integer;
begin
repeat
writeln('Введите интервал, 2 натуральных числа, второе больше первого');
readln(m,n);
until n>m;
mx:=1;
for i:=m to n do
 begin
 KolDel(i,md);
 if md>mx then mx:=md;
 end;
writeln('Наибольшее количество делителей имеют числа:');
for i:=m to n do
 begin
 KolDel(i,md);
 if md=mx then write(i,' ');
 end;
writeln;
write('количество=',mx);
readln
end.

Пример:
Введите интервал, 2 натуральных числа, второе больше первого
10 100
Наибольшее количество делителей имеют числа:
60 72 84 90 96
количество=12