Напечатать списки цехов, в которых соотношение рабочих и инженерно-технических работников более 1,5 и менее 2

program project;
{$mode Objfpc} {$H+}
 
uses crt, FileUtil, SysUtils;
type
  WShop=record
    w:integer;
    e:integer;
  end;
 
  var
  F:array [1..10] of WShop;
  i:byte;
  wr,er:real;
begin
  for i:=1 to 10 do begin
    writeln(UTF8ToConsole('Цех № '),i);
    write(UTF8ToConsole('Цисло рабочих= ')); read(F[i].w);
    write(UTF8ToConsole('Цисло инженеров= ')); read(F[i].e);
  end;
 
  writeln(UTF8ToConsole('Цеха в которых соотношение... ')); //Впишите сами мне лень : )
  for i:=1 to 10 do begin
     wr:=F[i].w; er:=F[i].e;
     if ((wr/er>1.5) or (er/wr>2)) then
     writeln(UTF8ToConsole('Цех №'), i);
  end;
 
  writeln(UTF8ToConsole('Цеха в которых соотношение... ')); //Впишите сами мне лень : )
  for i:=1 to 10 do begin
     wr:=F[i].w; er:=F[i].e;
     if wr/er>2 then
     writeln(UTF8ToConsole('Цех №'), i);
  end;
 
 
  writeln('>>>');
  readkey();
end.