Заменить все элементы главной диагонали матрицы(4,4) последним элементом матрицы​

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

1)

begin
  var (a,b):=ReadInteger2('Введите границы диапазона:');
  var Всего:=b-a+1; // количество целых чисел в диапазоне
  var Четных,Нечетных:integer;
  if a.IsOdd then begin Четных:=Всего div 2; Нечетных:=Всего-Четных end
  else begin Нечетных:=Всего div 2; Четных:=Всего-Нечетных end; // четное a
  Writeln('Нечетных- ',Нечетных,', четных- ',Четных)
end.

Пример
Введите границы диапазона: -4 4
Нечетных- 4, четных- 5

2)

begin
  var (n,a,b):=ReadInteger3('Введите n,a,b:');
  SeqRandom(n,a,b).Println
end.

Пример
Введите n,a,b: 15 -10 35
19 33 -10 4 5 -10 10 21 17 21 14 21 24 23 18

Алгоритм:
Просим пользователя ввести площадь квадрата SK
и площадь окружности SR
Вычислить длину стороны квадрата 
Вычислить длину диагонали квадрата 
Вычислить радиус окружности 

Если длина диагонали с меньше или равна радиусу окружности r, то квадрат поместится в круге
Если радиус r меньше или равен длине стороны квадрата, то окружность поместится в квадрате.
В противном случае фигуры не поместятся одна в другой.

Вот реализация алгоритма на языке basic:
 10 rem Площадь круга и квадрата

 20 input "Введите площадь круга"; SR
 30 input "Введите площадь квадрата"; SK

 40 a=sqr(SK)

 50 c=sqr(a^2 * 2)
 60 pi=3.1415926
 70 r=sqr(SR/pi)
 80 if a>=r then print "Круг поместится в квадрат":goto 110
 90 if r>=c then print "Квадрат поместится в круг":goto 110
100 print "Фигуры не поместятся друг в друга"
110 print "---------------------------------":print
120 end