var a:array [1..100,1..100] of real;
b:array [1..100,1..100] of real;
i,m,n,c:integer;
begin
readln(n);
readln(c);
for i:=1 to n do
for m:=1 to c do readln(a[i,m]);
for i:=1 to n do
for m:=1 to c do
b[i,m]:=a[i,m]/8;
for i:=1 to n do
for m:=1 to c do writeln(b[i,m]);
end.
можете написать обозначение каждого символа

var a,b:array [1..100,1..100] of real;    current_row,current_column,rows,columns:integer;begin  readln(rows);  readln(columns);  for current_row := 1 to rows do begin    writeln();    for current_column := 1 to columns do begin      read(a[current_row,current_column]);      b[current_row,current_column] :=a [current_row,current_column] / 8;    end;  end;  for current_row := 1 to rows do begin    writeln();    for current_column := 1 to columns do      write(b[current_row,current_column]:4, ' ');  end;end.