1. Выберите номер фрагмента программы, выполняющего такие же действия, что
и приведенный ниже:
for i:= 2 to 6 do begin x:=x+2*i;
x:=x+1;
end;
1) i:=2; while i< 6 do begin x:=x+2*i;
x:=x+1;
i:=i+1;
end;
2) i:=2; while i<= 6 do begin x:=x+2*i;
x:=x+1;
end;
3) i:=2; while i<=6 do begin x:=x+2*i;
x:=x+1;
i:=i+1;
end;
2.Определите значение переменной X после выполнения следующего фрагмента
программы:
x:=1;
repeat
x:=x+2;
x:=x+1;
until x>10;
3.Выберите аналогичный фрагмент приведенному выше, но записанный с цикла while.
1. X:=1;
While x>10 do begin x:=x+2; x:=x+1; end;
2. X:=1;
While x<10 do begin x:=x+2; x:=x+1; end;
3. X:=1;
While x<=10 do begin x:=x+2; x:=x+1; end;

// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=8;
  var a:=new real[n,n];
  var k:=1;
  for var i:=0 to n-1 do
    for var j:=0 to n-1 do begin
      if i.IsEven then a[i,n-1-j]:=k
      else a[i,j]:=k;
      k+=1
      end;
  a.Println(3,0)
end.

Результат
  8  7  6  5  4  3  2  1
  9 10 11 12 13 14 15 16
 24 23 22 21 20 19 18 17
 25 26 27 28 29 30 31 32
 40 39 38 37 36 35 34 33
 41 42 43 44 45 46 47 48
 56 55 54 53 52 51 50 49
 57 58 59 60 61 62 63 64

Может быть, так:
uses graphABC;
Begin
setfontcolor(clRed);
writeln('Белеет парус одинокой');
setfontcolor(clBlue);
writeln('В тумане моря голубом!..');
setfontcolor(clDarkOrchid);
writeln('Что ищет он в стране далекой?');
setfontcolor(clDeepSkyBlue);
writeln('Что кинул он в краю родном?..');
setfontcolor(clDeepPink);
writeln('Играют волны - ветер свищет,');
setfontcolor(clMagenta);
writeln('И мачта гнётся и скрыпит...');
setfontcolor(clDarkGreen);
writeln('Увы! он счастия не ищет');
setfontcolor(clLime);
writeln('И не от счастия бежит!');
setfontcolor(clBrown);
writeln('Под ним струя светлей лазури,');
setfontcolor(clIndigo);
writeln('Над ним луч солнца золотой...')
End.