Дано вещественное число - цена 1 кг конфет, вывести стоимость 100г, . записать на языке pascal

var i,n:real;
begin
  read (n);
  for i:=1 to 10 do
    write (i*n/10)
end.

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

begin
  var n:=8;
  var a:=new real[n,n];
  var k:=1;
  for var i:=0 to n-1 do
    for var j:=0 to n-1 do begin
      if i.IsEven then a[i,n-1-j]:=k
      else a[i,j]:=k;
      k+=1
      end;
  a.Println(3,0)
end.

Результат
  8  7  6  5  4  3  2  1
  9 10 11 12 13 14 15 16
 24 23 22 21 20 19 18 17
 25 26 27 28 29 30 31 32
 40 39 38 37 36 35 34 33
 41 42 43 44 45 46 47 48
 56 55 54 53 52 51 50 49
 57 58 59 60 61 62 63 64

F - ответ
1)
A B AvB F
0 0   0    0
1 0   1    1
0 1   1    1
1 1   1    1
2)
A B (отриц)B   Bv(отриц)B  F
0 0      1                  1        1
0 1      0                  1        1
1 0      1                  1        1
1 1      0                  1        1
3)
A B C AvBvC  F
0 0 0     0       0
0 0 1     1       1
0 1 0     1       1
0 1 1     1       1
1 0 0     1       1
1 0 1     1       1
1 1 0     1       1
1 1 1     1       1
4)
A B C (отриц)C    AvBv(отриц)C     F
0 0 0       1                   1              0
0 0 1       0                   0              1
0 1 0       1                   1              0
0 1 1       0                   1              0
1 0 0       1                   1              0
1 0 1       0                   1              0
1 1 0       1                   1              0
1 1 1       0                   1              0