یک الگوریتم لازم دارم ( موضوع امتحان ترمه )

سلام به همه بچه ها
خاهشن الگوریتمی به من بدهید که بتواند پول را گرفته و به پول خرد سکهای تبدیل کند لطفا با برنامه پاسکال طراحی شود
کراش به این صورته که
مثلا پول 250 تومن ما به سیستم می دهیم
و سیستم با توجه به سکه هایی که دارد پول به ما می دهد مثلا 100 25 50
پس به ما یک 50 و دوتا 100 به ما بدهد


:41: کمکم کنید بیست بشم :31:

کتاب جعفر نژاد به زبان c 1 برنامه مشابه این داره
اگر اونو پیدا کنید می تونید به پاسکال تبدیلش کنید
من خودم پاسکال بلد نیستم!

به زبان c++ برای سکه 100 ریالی و تبدیلش به پولخوردهای 2 5 10 20 50 کدش می شه این (از همون کتاب جعفر نژاد) تبدیلش به پاسکال و بقیه کارا هم با خودتون

کد:

---

#include<iostream>
 #include<conio.h>
 int main()
 {
        int i2,i5,i10,i20,i50,sum=0,count=0;
  for(i2=0;i2<=50;i2++)
          for(i5=0;i5<=20;i5++)
              for(i10=0;i10<=10;i10++)
                for(i20=0;i20<=5;i20++)
                    for(i50=0;i50<=2;i50++)
              {
                      sum=i2*2+i5*5+i10*10+i20*20+i50*50;
                  if(sum==100)
                  {
                          cout<<"2rials="<<i2<<" 5rials="<<i5<<" 10rials="<<i10;
                    cout<<" 20rials="<<i20<<" 50rials="<<i50<<endl;
                    count++;
                  }
                  else
                          sum=0;
              }
  cout<<"Numbers of correct times:"<<count<<endl;
  getch();
        return 0;
 }

---

دست گل همتون درد نکنه خیلی به دادم رسیدین
تشکر