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

Question

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

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

Answer 1

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

Comments

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

Answer 2

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.

Comments

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