Паскаль вычислить значение функции y=sqrt(x)+1 на отрезке [a, b] с шагом hю результаты вывести в виде таблицы.

Var   a, b, h : real; begin   write('a, b, h: ');   read(a, b, h);   while a < = b do   begin     writeln('f(', a, ') = ', sqrt(a) + 1);     a : = a + h;   end; end.

Program dlksjijh; var   a: array[1..40] of integer;   i: integer; begin   randomize;   writeln('исходные данные: ');   for i : = 1 to 40 do   begin       a[i] : = random(21);       write(a[i], ' ');   end;   writeln;   writeln('преобрезованный массив: ');   for i : = 1 to 40 do   begin       if a[i] mod 2 = 0 then           a[i] : = round(a[i]/2)       else           a[i] : = a[i] * 3;       write(a[i], ' ');   end; end. имена операций - с прописной буквы, и, поскольку есть  то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел. у меня работает.

#include < iostream> int main() {       int n, i, sum = 0;       std: : cout < < "n=";       std: : cin > > n;       int a[n];       for (i = 0; i < n; i++) {             std: : cout < < "a[" < < i < < "]=";             std: : cin > > a[i];             sum += a[i];       }       std: : cout < < "sum(a)=" < < sum < < '\n';       return 0; }