Описать фаил

[Stilet]

Сам-то ты понимаешь что это несуразица ?

Не это главное. Как бы программист не называл переменные главное что программа должна работать. Так что не к этому нужно придираться.

напиши отредактированный код плс

Нет. сам. Пробуй, изучай программирование.

[uppu.are]

не получается! я уже день сижу

[uppu.are]

Stilet напиши

[uppu.are]

аааа на помощь. нечего не получается!!!!

[uppu.are]

s1,c1,c2,k,i,j: integer;

_____
...
_____
writeln('Vvedite summu');
readln (many);
s1:=0;
s2:=0;
k=length(файл);
for i=1 to i=k do
begin
читаешь цену игрушки номер i в с1
writeln(наименование с1);
for j=i+1 to k do
читаешь цену j-той игрушки в с2
s1=s1+c1;
if (s1>many)
...begin
...s1:=s1-c1;
...wtriteln('eto bil predpologaemii spisok');
...end;
writeln (наименование игрушки c2);
end;
s1:=c1;
end;
похоже?

[uppu.are]

стилет? ау

[uppu.are]

что никто не знает в чем тут дело?!!