var
x, y: real;
k: integer;
begin
k := 0;
Read(x, y);
while (x <> 0) or (y <> 0) do
begin
if (x < 0) and (y > 0) then
k := k + 1;
Read(x, y)
end;
Writeln(k);
end.
"Идти пока не упрёшься в стену. Повернуть на лево"
Сделай цикл while пока денег не будет меньше цены товара
1, 2, 3, 4 // номера не могут начинаться с чисел