Изменить программу из примера 19.1 страничка 126 для построения изображений информатика шестой класс​

#include <iostream>

#include <ctime>

#include <stdio.h>

int main()

{

   setlocale(LC_ALL, "Ukr");

   int n = 3, m = 3;

   printf("Кiлькiсть рядкiв матрицi = ");

   scanf("%d", &n);

   printf("Кiлькiсть стовпцiв матрицi = ");

   scanf("%d", &m);

   int mat[n][m];

   srand(time(NULL));

   printf("Була:\n ");

   for (int i = 0; i < n; i++)

       for (int j = 0; j < m; j++)

           mat[i][j] = rand() % 21 - 10;

   for (int i = 0; i < n; i++)

   {

       for (int j = 0; j < m; j++)

           printf("%d  ",mat[i][j]);

       printf("\n");

   }

   printf("Cтала:\n ");

   for (int i = 0; i < n; i++)

   {

       int* temp = new int[n];

       temp[i] = mat[n - 1][i];

       mat[n - 1][i] = mat[i][0];

       mat[i][0] = temp[i];

   }

   for (int i = 0; i < n; i++)

   {

       for (int j = 0; j < m; j++)

           printf("%d  ",mat[i][j]);

       printf("\n");

   }

   return 0;

}

Free Pascal

uses math;

var

 x, y : double;

 i :  integer;

begin

 i:=-18;

 while i <= 21 do begin

   x:=i/10;

   if x<>0 then begin

     y:=(sin(x)-sqrt(sqr(x)+7))/(power(x,3)-3*x);

     Writeln('f[',x:1:1,']=',y:4:4);

   end

   else

     Writeln('f[',x:1:1,']= решения нет, деление на 0');

   inc(i);

 end;

 writeln();

 i:=-100;

 while i<=100 do begin

   x:=i/100;

   if x<>0 then begin

     y:=(sin(x)-sqrt(sqr(x)+7))/(power(x,3)-3*x);

     Writeln('f[',x:2:2,']=',y:4:4);

   end

   else

     Writeln('f[',x:2:2,']= решения нет, деление на 0');

   inc(i,5)

 end;

end.