Построить таблицу значений для функции y=x^2, на отрезке[4; 10], с шагом 0, 1

var    x: real;

begin    writeln('x', #9, 'y');     x : = 4;     while(x < = 10) do     begin      writeln(x: 3: 1, #9, x * x: 4: 2);       x : = x + 0.1;     endend.

// pascalabc.net 3.1, сборка 1230 от 27.04.2016 const   n=10; begin   var c: =readarrinteger('введите 10 чисел: ',10);   writeln('сумма отрицательных равна ',c.where(x-> x< 0).sum);   swap(c[0],c[4]); c.println;   // сортировка   for var i: =0 to n-2 do       for var j: =0 to n-2 do           if c[j]> c[j+1] then swap(c[j],c[j+1]);   c.println end. тестовое решение введите 10 чисел: -45 18 20 40 -4 -7 -38 -26 6 -50 сумма отрицательных равна -170 -4 18 20 40 -45 -7 -38 -26 6 -50 -50 -45 -38 -26 -7 -4 6 18 20 40

Using system; namespace consoleapp0{    class program    {        static void main(string[] args)        {            int a = int.parse(console. b = int.parse(console.;             if (a % b == 0 || b % a == 0) console.writeline("делится");             else console.writeline("не делится");             console.readkey(true);           }    }}