Определить: тождественно -истинно или тождественно - ложно высказывание : (avb)^(avc)

program p; uses crt,graph; var d,m: integer; beginclrscr; initgraph(d,m,''); setcolor(green) ; line(200,420,300,420); line(300,420,250,330); line(250,330,200,420); line(200,330,300,330); line(300,330,250,240); line(250,240,200,330); line(200,240,300,240); line(300,240,250,140); line(250,140,200,240); readkey; end.

см схему на стр 15, № 34                                                  

type array100 = array [1..100] of integer; var x,y: array100; i,n,min,max: integer; begin  randomize;   n: =10;   for i: = 1 to n do begin      x[i]: =random(n*10)- 10*n div 2 ;       write(x[i]: 4);       if i mod 10=0 then writeln;   end;     min: =1;   max: =1;   for i: = 1 to n do begin      if x[i]< x[min] then min: =i;       if x[i]> x[max] then max: =i;   end;   i: =x[min];   x[min]: =x[max];   x[max]: =i;         writeln;   for i: = 1 to n do begin      write(x[i]: 4);       if i mod 10=0 then writeln;   end;   end.

ну например

в первом столбике пишешь  числа попорядку

во втором столбике пишешь "=a1*a1" и протягиваешь вниз на всю таблицу

в третем пишешь "=a1*a2" и протягиваешь вниз на всю таблицу

в первом столбике у нас получается число

во втором  квадрат числа

в третем - куб числа