Уменя завтра первой парой зачет по 'pasсal abc' , решить . буду признательна ^.^ ввести n1,n2,n3 - количества рекламаций на три вида товаров. напечатать текст "все товары хорошие" , если max(n1,n2,n3) меньше 5, иначе- "есть плохие товары"

Готово,проверяйте

Var
  x,i:integer;
  f:boolean;
begin
f:=true;
for i:=1 to 3 do
  begin
  write('Введите N',i,': ');
  readln(x);
  if x>=5 then f:=false;
  end;
if f then writeln('Все товары хорошие')  else writeln('Есть плохие товары')
end.