Лимон вид источника и получения информации

Источник - фруктовое дерево
Получение информации - с зрения, осязание, запах

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

begin
  var n:=ReadInteger('Количество строк в массиве:');
  var m:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  for var j:=0 to m-1 do a[1,j]:=5; a.Println(4)
end.

Пример
Количество строк в массиве: 6
Количество столбцов в массиве: 8
*** Исходный массив [6,8] ***
   9  -3 -27 -90  43 -54   0 -49
  -2  91 -12 -10 -21  19  52   5
  26  41  79  98  91 -50  87 -50
 -23 -24 -63  17 -59  75 -43 -62
 -27 -13  93   2 -58 -43 -22 -90
   5  94  90 -26  81  46   5 -12

   9  -3 -27 -90  43 -54   0 -49
   5   5   5   5   5   5   5   5
  26  41  79  98  91 -50  87 -50
 -23 -24 -63  17 -59  75 -43 -62
 -27 -13  93   2 -58 -43 -22 -90
   5  94  90 -26  81  46   5 -12

1) program lineynoeuravnenie;
var a, b: integer; x: real;
begin
writeln ('Введите коэффициенты a и b');
readln (a, b);
x:=-b/a;
write ('Решите уравнение', x);
end.

2) program veschestvennoe;
var a, b, c: integer; d, x1, x2: real;
begin
writeln ('Введите коэффициент a, b, c');
readln (a, b, c);
if a=0 then
begin
x1:=-c/b;
write ('Одно решение', x1),
end;
d=b*b-4*a*c;
if d<0 then
write ('Корней нет');
if d=0 then
begin
x1:=-b/(2*a);
write ('Одно решение', x1);
end;
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write (x1,'',x2);
end;
end.