Написать, программу, которая решает проблему: -ввести "а" с клавиатуры -найти a^8 ( а в восьмой степени) используя sqr. -вывести ответ

var

a, b: real;

begin

readln(a, b);

if a = b then writeln(числа равны)

else

if a > b then begin

a : = sqr(a); b : = b / 8;

end

else begin

b : = sqr(b); a : = a / 8;

end;

writeln(a = , a, b=, b)

end.

//

var

  a: real;

begin

  read(a);

  for var i : = 1 to 3 do

    a : = sqr(a);

  write(a);

end.

Янемного не понял что значит   " название моделей современных микропроводных персональных компьютеров" но напишу про процессоры.у intel основная линейка процессоров состоит из intel celeron intel pentium intel core i3/5/7(с 2012-2017 и только для пк)сокеты у интел начиная с 2011-2017 года под процессоры указаные выше это lga1156 lga1155 lga1150 lga1151 ну и так же сокеты под intel core i7 с 6-ю ядрами или же extreme edition т.е lga2011 и 2011-3.не стоит забывать и про новый сокет lga2066 с микроархитектурой kaby lake-x который поддерживает i5/7 8-го поколения (например intel core i5  core i5-7640x)   и топовые процессоры intel core i9 на 10 12 14 16 и 18 ядер(потоков в 2 раза больше.для определения характеристик мы возьмём процессор intel core i7 4790k под сокет lga1150.базовая частота - 4ghz.кэш l2  4  ×  256 кб.кэш l3 - 8мб.модель встроенного видеоадаптера -  hd graphics 4600.tdp -  88 вт. сокет 1150.используеться вместе с чипсетами на мат. платах данного сокета - h81,b85,h97,z97

Сделал все! ) поставь наилучшее! 1)var a: array [0..5] of integer;     i,j: integer; begin  randomize;   j: =0; for i: =0 to 5 do   a[i]: =random(100); for i: =0 to 5 do   if a[i] mod 3 =0 then  inc(j); writeln(j); readln; 2)var a: array [0..5] of integer;     i,j: integer; begin   randomize;   j: =0; for i: =0 to 5 do  a[i]: =random(100); for i: =0 to 5 do   if a[i] mod 2 =0 then    j: =j+a[i]; writeln(j); readln; 3)a: array [0..5] of integer;     i,s: integer; begin randomize; s: =1; for i: =0 to 5 do  a[i]: =random(9)+1; for i: =0 to 5 do  if i mod 2 < > 0 then    s: =s*a[i]; writeln(s); readln; end.4)const n=5; m=5; var a: array [0..n,0..m] of integer;     i,j: integer; begin  randomize; for i: =0 to n do for j: =0 to m do   a[i,j]: =random(100);   for i: =0 to n do  begin    writeln;     for j: =0 to m do    write(a[i,j]: 3);   end; for i: =0 to n do for j: =0 to m do  begin   if a[i,j] mod 2 =0 then  a[i,j]: =2   else if a[i,j] mod 2 < > 0 then    a[i,j]: =1; end; writeln;   for i: =0 to n do   begin    writeln;   for j: =0 to m do    write(a[i,j]: 3);   end; readln; end. 5)const n=5; m=5; var a: array [0..n,0..m] of integer;     i,j: integer; begin    randomize; for i: =0 to n do for j: =0 to m do   a[i,j]: =random(10);   for i: =0 to n do   begin    writeln;   for j: =0 to m do  write(a[i,j]: 3);   end; for i: =0 to n do for j: =0 to m do a[i,j]: =a[i,j]*2; writeln;   for i: =0 to n do  begin    writeln;     for j: =0 to m do    write(a[i,j]: 3);     end; readln; end.