Даны массивы NZ1,..,NZ10 -номерные знаки автомашин; G1,..,G10 -грузоподъемности ,тонны; R1,..R10 — расход топлива на 100 км пробега. Напечатать списки автомашин, у которых отношение Gi/Ri более 0,3 и менее 0,5 — Pascal(Паскаль)

program gd;

uses crt;

var
  N: array [1 .. 10] of string;
  G: array [1 .. 10] of real;
  R: array [1 .. 10] of integer;

  i: integer;

begin
  for i := 1 to 10 do
  begin
    write('N[', i, ']=');
    readln(N[i]);
  end;

  for i := 1 to 10 do
  begin
    write('G[', i, ']=');
    readln(G[i]);
  end;

  for i := 1 to 10 do
  begin
    write('R[', i, ']=');
    readln(R[i]);
  end;

  clrscr;
  writeln('Rezult:');
  for i := 1 to 10 do
  begin
    if ((G[i] / R[i]) > 0.3) and ((G[i] / R[i]) < 0.5) then
      writeln(N[i], ' * ', G[i] / R[i]:0:2);
  end;

  readln;

end.