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

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

Спасииииииииииибо :*

Спасибо, большое за помощь ^^

готово,проверяйте...............

var  x,i:integer;  f:boolean;beginf:=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.