Найти минимальное число монет достоинством в 50, 10, 5, и 1 копейку, необходимое для представения некоторой суммы - Pascal

Формулировка задачи:

Найти минимальное число монет достоинством в 50, 10, 5, и 1 копейку, необходимое для представения некоторой суммы, меньшей 1-го рубля.

program pr2; 
var s,k1,k2,k3,k4: integer;
begin
write('введите количество денег');
readln(s);
k1:=(s div 50);
s:=(s mod 50);
k2:=(s div 10);
s:=(s mod 10);
k3:=(s div 5);
s:=(s mod 5);
k4:=(s div 1);
write(k1+k2+k3+k4);
end.

правильно?

Решение задачи: «Найти минимальное число монет достоинством в 50, 10, 5, и 1 копейку, необходимое для представения некоторой суммы»

Листинг программы

program pr2; 
var s,k1,k2,k3,k4: integer;
begin
    write('введите количество денег');
    readln(s);
    k1:=(s div 50);
    s:=(s mod 50);
    k2:=(s div 10);
    s:=(s mod 10);
    k3:=(s div 5);
    s:=(s mod 5);
    k4:=(s div 1);
    write(k1+k2+k3+k4);
end.

Объяснение кода листинга программы

Вводится число монет для представления суммы денег.
Программа делит это число на 50 и записывает целую часть в переменную k1, а остаток от деления в переменную s.
Затем программа делит s на 10 и записывает целую часть в переменную k2, а остаток от деления в переменную s.
Далее программа делит s на 5 и записывает целую часть в переменную k3, а остаток от деления в переменную s.
Наконец, программа делит s на 1 и записывает целую часть в переменную k4, а остаток от деления в переменную s.
В конце программа выводит сумму k1, k2, k3 и k4, которая является минимальным количеством монет для представления введенной суммы денег.