1) человек - человек
2) учитель - класс
3) газета - человек
Ответ ясный и очень прост: иллюстрация
Желаю удачи:)
Var i,x,s:integer;
begin
writeln('Вводите стоимость товаров по одному');
while i<3 do
begin
readln(x);
if x>1000 then
begin
s:=s+x;
i:=i+1;
end;
end;
writeln('s=',s);
<span>end.</span>