Нужно! делать нужно в паскале: составьте 3 программы, используя for, while и repeat: распечатать последовательность чисел 3, 6, 9, 12, и найти их сумму

//Pascal
var
  a, s:  integer;
  i: integer;

begin
 
  //цикл for
  s := 0;
  for i := 0 to 20 div 3 do
    s := s + i*3;
  writeln(s);
 
  //цикл while
  i := 3;
  s := 0;
  while i <= 20 do
  begin
    s := s + i;
    i := i + 3;
  end;
  writeln(s);
 
  //цикл repeat
  i := 3;
  s := 0;
  repeat
    s := s + i;
    i := i + 3;
  until i > 20;
  writeln(s);
end.

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк/столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var b:=MatrRandom(m,m,-99,99);
  b.Println(4); Writeln(4*m*'-');
  var (s,s1):=(Sqr(b[0,0]),0);
  for var i:=0 to m-1 do
    for var j:=0 to m-1 do
      if i+j<>0 then s1+=b[i,j];
  s-=Sqr(s1);
  Writeln('Результат: ',s)
end.

Пример
Количество строк/столбцов в матрице: 5
*** Исходная матрица ***
  48 -33   4 -66  28
  91 -46  58  11  92
  37 -42   8 -12  39
  25  65  91 -30  83
 -31 -53  36  28  49

Результат: -184320

Var
  X: array [1..5, 1..5] of real;
  Y: array [1..4, 1..4] of real;
  i, j: byte;
  SumX, SumY: real;
begin
SumX := 0; SumY := 0;
writeln('Массив X':28);
for i := 1 to 5 do
begin
  for j := 1 to 5 do
  begin
    X[i, j] := random*40-20;
    if X[i, j] < 0 then SumX := SumX + X[i, j];
    write(X[i, j]:9:4);
  end;
  writeln;
end;
writeln;
writeln('Массив Y':28);
for i := 1 to 4 do
begin
  for j := 1 to 4 do
  begin
    Y[i, j] := random*40-20;
    if Y[i, j] < 0 then SumY := SumY + Y[i, j];
    write(Y[i, j]:9:4);
  end;
  writeln;
end;
writeln;
writeln('Сумма отрицательных массива X = ', SumX:9:4);
writeln('Сумма отрицательных массива Y = ', SumY:9:4);
if SumX > SumY then writeln('Сумма отрицательных X - больше.')
else if SumX < SumY then writeln('Сумма отрицательных Y - больше.')
else writeln('Сумма отрицательных X и Y равны.')
end.