Нужна помощь по информатике.

{$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N+,O+,P+,Q+,R+,S-,T-,U-,V+,W-,X+,Y+,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var i,j,k,l:integer;
x:int64;
V,N,Sp,Sk,PB,KB:integer;
begin
assign(input,'vanilka.in');
assign(output,'vanilka.out');
reset(input);
rewrite(output);
readln(x);
readln(v,n);
readln(sp,sk);
readln(pb,kb);
if x<(v+n)then begin//хватит ли денег на нож и вилку?
write(0);
halt;
end
else x:=x-(v+n);
i:=sp+sk;//стоимоть одной покупки если платит и за пирожок и за кофе
j:=1;
k:=1;
l:=0;
while x>0 do begin
if (j=pb)and (k=kb) then begin
j:=1;
k:=1;
l:=l+1;
end
else if (j=pb) then begin
j:=1;
l:=l+1;
k:=k+1;
x:=x-sk;
end
else if (k=kb) then begin
k:=1;
l:=l+1;
j:=j+1;
x:=x-sp;
end
else begin
j:=j+1;
l:=l+1;
k:=k+1;
x:=x-i;
end;
end;
write (l);
end.
писал на делфи

может составитель и есть та самая посетительница кафешки?

Вам задачку эту решить надо? Пишите в личку, решу.

очень много в задаче воды.. ненужных слов.. что отвлекает от сути самой задачи хД

В озеро упала ветка. Пробегавший мимо олень успел заметить, что волна,
созданная падением ветки, дошла до берега за 10 с, причём расстояние между
соседними гребнями волн было равно 10 см и за 2 с было 4 всплеска о берег.
Помогите оленю определить, как далеко от берега упала ветка... вот это минимум лишнего)

жизнь не может быть одновременно ванильной и печальной, составитель задачи мудак

Я начинаю подозревать, что не ученики тупые, а преподы, которые за их з/п только часы отрабатывают. И нет ни какого желания давать знания.

Точно мудак. ..)