Робот при каждом шаге рисует прямую длиной 10 см. Сколько шагов нужно сделать роботу, чтобы нарисовать прямоугольник длиной 40 см, шириной 30 см? Определи число повторений циклического тела.

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.