program laba35;

const
  a : array [0..6] of real = (1, 3.5, 4, -0.8, 1.9, 5, 13);
  c = 2;
  d = 10;

var
  i : integer;
  p : real;

begin
  p := 1;
  for i := 0 to 6 do 
    if ((a[i] >= c) and (a[i] < d)) then
      p := p * a[i];
  writeln ('p = ', p : 0 : 2);
end.

program laba36;

type
  SomeArray = array [0..1, 0..2] of real;

const
  p : SomeArray  = ((-1.5, 9.1, 3.5), (2.7, 3.14, 1.5));
  k = 0;

function getmax (p : SomeArray; k : integer) : real;
var
  i : integer;
  max : real;
begin
  max := p[0][k];
  for i := 1 to 1 do
    if max < p[i][k] then
      max := p[i][k];
  getmax := max;
end;

var
  i, j : integer;
  max : real;
  
begin
  max := getmax (p, k);
  for i := 0 to 1 do
    for j := 0 to 2 do
      p[i][j] := p[i][j] / max;
  for i := 0 to 1 do
    for j := 0 to 2 do
      writeln (p[i][j] : 0 : 2);
end.