Нужно построить трассировочную таблицу к этому алгоритму: var x, a, b, f, p :i nteger; s, c : real;
begin
writeln('Введите x');
read(x);
s := 0;
a:= 1;
c:=1;
while a 0 then begin c:= -1*(p/f); end {+ меняется на -}
else if c < 0 then c := p/f; {- меняется на +}
s := s - c; {считается сумма}
writeln('a=',a,', p/f=',p/f:2:2,', s=',s:2:2, ', c=',c:2:2);
a := a+2;
end;
writeln('s=',s:2:2);
end.
Также решение программы:
x=3
a=1, p/f=3.00, s=3.00, c=-3.00
a=3, p/f=4.50, s=-1.50, c=4.50
a=5, p/f=2.02, s=0.53, c=-2.02
a=7, p/f=0.43, s=0.09, c=0.43
a=9, p/f=-0.65, s=-0.56, c=0.65
a=11, p/f=-3.62, s=-4.18, c=3.62
a=13, p/f=-1.61, s=-5.79, c=1.61
s=-5.79
Очень надо!!

Const
  m=10;
  n=6;
var
  a:array[1..10,1..6] of integer;
  i,j:integer;
begin
  Writeln('Элементы массива');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=sqr(i)+sqr(j);
      Write(a[i,j]:4)
    end;
    Writeln
  end
end.

Тестовое решение:
Элементы массива
   2   5  10  17  26  37
   5   8  13  20  29  40
  10  13  18  25  34  45
  17  20  25  32  41  52
  26  29  34  41  50  61
  37  40  45  52  61  72
  50  53  58  65  74  85
  65  68  73  80  89 100
  82  85  90  97 106 117
 101 104 109 116 125 136

const
  n = 10;
var
  a: array[1..n] of integer;
  i, t: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    a[i] := Random(50);
    Write(a[i]:3);
  end;
  Writeln;
  t:=a[n];
  for i:=n-1 downto 1 do a[i+1]:=a[i];
  a[1]:=t;
  Writeln('Результирующий массив');
  for i := 1 to n do Write(a[i]:3);
  Writeln
end.

Тестовое решение:
Элементы массива
 13 43 26 31  1 21 12  0 33 25
Результирующий массив
 25 13 43 26 31  1 21 12  0 33

Это реализовано с цикла for:

Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do   
Begin   
Write('Введите число: ');   
Readln(a2);   
if a2>a1 then    
k:=k+1;   
a1:=a2;   
End;
if k=2 then 
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
End.

Это реализовано с цикла while:

Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While i<>2 do   
Begin   
Write('Введите число: ');   
Readln(a2);   
if a2>a1 then    
k:=k+1;   
a1:=a2;   
i:=i+1;   
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей');
End.

Это реализовано с цикла repeat:

Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat   
Begin   
i:=i+1;   
Write('Введите число: ');   
Readln(a2);   
if a2>a1 then    
k:=k+1;   
a1:=a2;   
End;
until i=2;
if k=2 then 
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
End.