Заполни пропуски в таблице в степени число 2

// Известно, что Х кг шоколадных конфет стоит А рублей,
// а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг
// шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.

var x,y,a,b: real;
begin
  writeln('Введите массу шоколадных конфет');
  readln (x);
  writeln('Введите сумму потраченную на покупку шоколадных конфет');
  readln (a);
  writeln('Введите массу ирисок');
  readln (y);
  writeln('Введите сумму потраченную на покупку ирисок');
  readln (b);
  writeln ('килограмм шоколадных конфет стоит ',(a/x):0:2,' рублей');//(a/x):0:2 - округряем до сотых)
  writeln ('килограмм ирисок стоит ',(b/y):0:2,' рублей');
  Writeln ('Шоколадные конфеты дороже ирисок в ',(a/x)/(b/y):0:1,' раз');// - округляем результат до десятых
 end.

//Дана длина ребра куба а. Найти его объем и площадь поверхности

Var a: real;
begin
  writeln ('введите длину ребра куба');
  readln (a);
  while a<0 do
    begin
      writeln ('вы ввели не допустимое значение попробуйте еще раз');
      writeln ('введите длину ребра куба');
      readln (a);
    end;
  writeln ('площадь куба равна ',a*a*6);
  writeln ('объем куба равен ',a*a*a);
end.

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := new integer[5, 5](

     (2, 4, 5, 1, 3),

     (7, 2, 9, 0, 2),

     (6, 4, 1, 0, 1),

     (8, 4, 7, 2, 0),

     (6, 0, 0, 2, 1));

 Println('Массив A');    

 a.Println(2);

 Println('Массив B');

 var b := new integer[5, 5](

     (2, 4, 5, 0, 3),

     (6, 0, 3, 2, 1),

     (2, 4, 5, 1, 3),

     (8, 4, 7, 2, 0),

     (6, 2, 0, 2, 1));

 b.Println(2);

 Println('Массив A');

 var c := new integer[5, 5];

 var (upper, lower) := (0, a.RowCount - 1);

 for var i := 0 to a.RowCount - 1 do

 begin

   var found := False;

   for var j := 0 to b.RowCount - 1 do

     if a.Row(i).SequenceEqual(b.Row(j)) then

     begin

       c.SetRow(upper, a.Row(i));

       upper += 1;

       Found := True;

       break

     end;

   if not found then  

   begin

     c.SetRow(lower, a.Row(i));

     lower -= 1;

   end

 end;

 a := Copy(c);

 c := nil; // удаляем с

 a.Println(2)

end.