Question

Привет, ребят, у меня завтра первой парой зачет по  'Pasсal ABC' , помогите пожалуйста решить задачку. Буду очень признательна ^.^ 

Ввести N1,N2,N3 - количества рекламаций на три вида товаров. Напечатать текст "Все товары хорошие" , если max(N1,N2,N3) меньше 5, иначе- "есть плохие товары"
 

Answer 1

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.