Репа,внучка,кошка,мышка,бабка,мышка,жучка тянет внучку.
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>
<span>Информатика она везде. Например обычный диск на котором хранится информация. Обычная бумага тоже имеет роль к информатики и в древности это были наскальные рисунки. Все это информация, а информатика как раз и наука об информации!</span>
Тело-тепло,только так,и никак иначе
Скину ответ через 10 минут ;)))))