Запишіть оператори циклу для друку двоцифрових двійкових чисел: 00, 01, 10, 11.​

во всех  областях деятельности холодильных предприятий  как в обработке и хранении, так и в производстве продукции основной является своевременное и равномерное выполнение и перевыполнение государственных плановых по всем показателям. при этом одним из главных показателей работы холодильников служит сохранение высокого качества продукции.  [6]

uses graph;                                           {подключен модуль graph}var x,y,h: integer; procedure grinit;       {процедура инициализации режима графики}var      graphdriver: integer;                   {для графического адаптера}      graphmode  : integer;                   {для графического режима}      errorcode  : integer;                   {для кода ошибки}begin      graphdriver : =detect;                   {режим автоопределения}      initgraph(graphdriver ,graphmode,''); {инициализация}      errorcode : =graphresult;             {результат инициализации}      if errorcode < >   grok then        {если не успешно,}      begin            writeln('ошибка графики: ',grapherrormsg(errorcode ));             writeln('программа остановлена.');             halt(1)      end {if}end; begin      grinit;                                                           {вызов инициализации}      x: =getmaxx div 2;       y: =getmaxy div 2;       h: = 30; {кол-во шагов до финиша}      while x+y> 0 do      begin        cleardevice;             circle(x, y, 10);             delay(100);             x: = x + getmaxx div h;             y: = y - getmaxy div h;       end;       readln;                                                 {пауза до нажатия }      closegraph;                                 {закрытие графического режима}end.

var x: array[1..10] of real; n: integer; begin  for n: =1 to 10 do begin    x[n]: =power(3,n)-5;     writeln(x[n]);     end; end.

вот программа.

var i: integer;

s,v: real;

begin

  read(i,v);

  case i of

      1: s: =pi*v*v;

      2: s: =pi*v*v/4;

      3: s: =v*v/pi/4;

  end;

  writeln(s);

end.