proizvod i dizel

Proizvod
Prva dva test primjera su tacna a ostali test primjeri se ne izvrsavaju u predvidjenom periodu.Ako bi mi neko pomogao oko toga koju promjenjivu da upotrjebim ili na neki drugi nacin da ucinim da se i ostali test primjeri izvrsavaju u predvidjenom periodu bio bih mu veoma zahvalan.
Dizel
Pet test primjera su tacni a ostalih pet netacni.Ako moze neko objasnjenje u vezi toga gdje grjesim i kako bi trebalo da bude da bi bilo tacno.

Moj kod

program dizel;
var v,v1:longint;d,c:integer;
begin
readln(v,d,c);
v1:=0;
if (v<=d) or (c<=d) then
v1:=0
else
begin
if (v<2*d) or (c<2*d) then
begin
v1:=v-d;
v:=0;
end
else
begin
if v<=c then
begin
v1:=v-d;
v:=0;
end
else
begin
while v>c do
begin
v:=v-c;
v1:=v1+c-2*d;
end;
if v>d then
begin
v1:=v1+v-d;
v:=0;
end
else
begin
v:=v;
v1:=v1;
end;
end;
end;
end;
writeln(v1,' ',v);
readln;


end.

za proizvod proveri ovo:

http://www.z-trening.com/index.php?forum&f_topic=90