Составить программу… разложить 1255,99 леев… 99 банов разложить сколько банов по…

Как то так program task_1; Beginwriteln ('90 бананов содержат: '); writeln (90 div 50, ' целых части по 50 бананов'); writeln (90 div 25, ' целых частей по 25 бананов'); writeln (90 div 10, ' целых частей по 10 бананов'); writeln (90 div 5, ' целых частей по 5 бананов'); End.