Определить количество способов оплаты N рублей с помощью монет достоинством 1, 2, 5, 10 рублей

var
  n,n1,n2,n5,n10,c:integer;
begin  
  write('n=');readln(n);
  for n1:=1 to n-17 do 
    for n2:=1 to n-17 do
      for n5:=1 to n-17 do
        for n10:=1 to n-17 do if n1+n2*2+n5*5+n10*10=n then c:=c+1;
  writeln('Способов:',c);
end.

var n, n1, n2, n5, n10, c: integer;
begin
  write('n = ');
  readln(n);
  c := 0;
  for n10 := 0 to n div 10 do
    for n5 := 0 to n div 5 do
      for n2 := 0 to n div 2 do
        for n1 := 0 to n do
          if n = 10 * n10 + 5 * n5 + 2 * n2 + n1
            then begin
              inc(c);
              break
            end;
  writeln('Способов: ', c);
  readln
end.

var n, n2, n5, n10, c: integer;
begin
  write('n = ');
  readln(n);
  c := 0;
  for n10 := 0 to n div 10 do
    for n5 := 0 to n div 5 do
      for n2 := 0 to n div 2 do
        if n - 10 * n10 - 5 * n5 - 2 * n2 >= 0
          then inc(c);
  writeln('Способов: ', c);
  readln
end.

var n, n2, n5, n10, c: integer;
begin
  write('n = ');
  readln(n);
  c := 0;
  for n10 := 0 to n div 10 do
    for n5 := 0 to (n-n10*10) div 5 do
      for n2 := 0 to (n-n10*10-n5*5) div 2 do c:=c+1;
  writeln('Способов: ', c);
end.