Введите значение x и вычислите значение функции f=x*x+5/x-7 нужно составить программу. .

Var x,f: integer; begin writeln("imput x"); readln(x) f: =x*x+5/x-7; writeln(f); end.

Var   i,k,n,p: longint;   f: array[1..10,1..2] of longint; begin   p: =2; i: =1;   f[1,1]: =1; f[1,2]: =1;   write('введите натуральное число не больше 2 147 483 647: ');   read(n);   write(n,' = 1');   while n< > 1 do begin       if (n mod p)=0 then begin           if f[i,1]< > p then           begin inc(i); f[i,1]: =p; f[i,2]: =1 end           else inc(f[i,2]);           n: =n div p       end       else inc(p)   end;   k: =i;   for i: =2 to k do   begin       write(' x ',f[i,1]);       if f[i,2]> 1 then write('^',f[i,2])   end;   writeln end. тестовое решение: введите натуральное число не больше 2 147 483 647: 223092870 223092870 = 1 x 2 x 3 x 5 x 7 x 11 x 13 x 17 x 19 x 23 введите натуральное число не больше 2 147 483 647: 65536 65536 = 1 x 2^16 введите натуральное число не больше 2 147 483 647: 2147483647 2147483647 = 1 x 2147483647

Var    a : array [1..2, 1..5] of integer;     i,j,pr: integer; begin pr: =1;   writeln('ведите значения в массив');     for i: =1 to 2 do         for j: =1 to 5 do   read(a[i,j]);                 for i: =1 to 2 do                     for j: =1 to 5 do                             if ( (a[i,j] mod 2 = 0) and (a[i,j] mod 3 < > 0) ) then pr: =pr*a[i,j];           writeln('произведение = ',pr) end.