Паскаль хелп
составить алгоритм и программу вычисления таблицы значений функции f(x) для n значений аргумента х, равномерно распределенных на отрезке [a,b] . для проверки задать n=10, a=0.55, b=1

Цифрова́я клавиату́ра, цифрово́й блок (англ. Numeric keypad, Keypad, Numpad) — небольшая секция компьютерной клавиатуры, обычно находится с правого края. На цифровой клавиатуре имеются клавиши с цифрами от 0 до 9, символ десятичного разделителя (.), символы сложения (+), вычитания (−), умножения (*) и деления (/).
Первоначально отдельный цифровой блок в ноутбуках не применялся (кнопки цифрового блока располагались на «буквенных» кнопках, переключение происходило через кнопку-модификатор Fn), ввиду малого размера обычных тогда 13‒15 ″ моделей. Сейчас, с широким выходом на рынок 17‒19 ″ моделей, цифровой блок стал обязательной принадлежностью клавиатур подобных ноутбуков, также он стал зачастую появляться и на моделях меньших размеров.
На клавиатурах ноутбуков, не имеющих выделенного блока цифр при включении режима Num Lock под ввод цифр перестраивается часть буквенных клавиш клавиатуры: клавиши «U», «I», «O» заменяются цифрами «4», «5», «6», клавиши «J», «K», «L» — цифрами «1», «2», «3» и так далее.
В так называемых «урезанных» (компактных) клавиатурах цифровой блок не добавляется, для уменьшения их габаритов. Также убран и в некоторых «игровых» клавиатурах[2]

Program z18;  Var a: array [1..1000] of string; i,j,l,min,h:integer; s:string;Begin  write('Введите строку - '); readln(s);  l:=s.Length;  i:= 1;  j:= 1;    while i <= l do  begin    while (s[i] <> ' ') and (i <= l) do    begin      a[j]:=a[j] + s[i];      i:= i + 1;      if (i > l) then break;    end;    j:= j + 1;    i:= i + 1;  end;    i:= 2;  min:=a[1].Length;  while (a[i] <> '') do  begin    l:=a[i].Length;    if (l < min) then h:= i;    i:= i + 1;  end;  writeln(a[h]);End.

Program z19;  Var a: array [1..1000] of string; i,j,l,min:integer; s:string;Begin  write('Введите строку - '); readln(s);  l:=s.Length;  i:= 1;  j:= 1;    while i <= l do  begin    while (s[i] <> ' ') and (i <= l) do    begin      a[j]:=a[j] + s[i];      i:= i + 1;      if (i > l) then break;    end;    j:= j + 1;    i:= i + 1;  end;    i:= 1;  while (a[i] <> '') do  begin    if ((a[i] = 'мое') or (a[i] = 'Мое')) then a[i]:= 'наше';    write(a[i], ' ');    i:= i + 1;  end;End.