Подскажите , в чем тут ошибка?

[Пиу Пиуу]

В банкомате имеются в достаточном количестве купюры номиналом 10, 20, 50, 100, 200 и 500 гривен. Найти минимальное количество купюр, которое необходимо использовать, чтобы выдать сумму в n гривен или вывести -1, если указанную сумму выдать нельзя.


Технические условия
Входные данные

Одно число n (1 ≤ n ≤ 1000000).

Выходные данные

Наименьшее количество купюр, которыми можно выдать n гривен.

Пример входных данных
770
Пример выходных данных
4

var n,a,b,c,d,q,w:integer;
Begin
readln(n);
a:=n div 500;
if (a<1) then (a:=0);
b:=n-(a*500) div 200;
if (b<1) then (b:=0);
c:=n-(a*500+b*200) div 100;
if (c<1) then (c:=0);
d:=n-(a*500+b*200+c*100) div 50;
if (d<1) then (d:=0);
q:=n-(a*500+b*200+c*100+d*50) div 20;
if (q<1) then (q:=0);
w:=n-(a*500+b*200+c*100+d*50+q*20) div 10;
if (w<1) then (w:=0);
if (n mod 10)>0 then writeln('-1') else
if (n mod 10)=0 then writeln(a+b+c+d+q+w);
readln;
End.

, вот , если что то поймете , то помгите плз компилятор ругает эту строку if (a<1) then (a:=0);

[Sinyss]

Цитата: Сообщение от Пиу Пиуу вот , если что то поймете , то помгите плз компилятор ругает эту строку if (a<1) then (a:=0);

then
begin
a:=0;
end;
Как то так

[Пиу Пиуу]

Цитата: Сообщение от Sinyss then begin a:=0; end; Как то так

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

[Sinyss]

Цитата: Сообщение от Пиу Пиуу спасибо , уже компилирует , но выдает не правильный ответ например , ввожу 740 выдает 739

Потому что у операции div приоритет выше чем у -.
Приведи вот к такому виду:
b:= ( n-(a*500) ) div 200;

[Пиу Пиуу]

Цитата: Сообщение от Sinyss Потому что у операции div приоритет выше чем у -. Приведи вот к такому виду: b:= ( n-(a*500) ) div 200;

спасибо , все получилось