Pascal :

var i,j,k,n:integer;
begin
 n:=0;
 for i:=0 to 100 do
  for j:=0 to 50 do
   for k:=0 to 20 do
    if i+j*2+k*5=100 then n:=n+1;
 writeln(n);

end.