پاسکال

از تمام دوستان می خوام که یه سری به وبلاگ جناب 8407533 بزنید من قبلا از طریق وب گردی دیده بودمش
واقعا باید گفت وبلاگ عالیی هستش ایکاش حداقل یک چهارم وبلاگهای ما اینطور پر بار بودن ولی حیف....

8407533 عزیز می تونی در این ادرس به من کمک کنی خیلی توش گیر کردم کسی هم کمک نکرده [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

کد:

---

PROGRAM HOROOFI;
uses crt,dos;
var num:1..999;
const a: array [1..27] of string=('ONE','TWO','THREE','FOUR','FIVE',
'SIX','SEVEN','EIGHT','NINE','TEN','ELEVEN',
'TWELVE','THIRTEEN','FOURTEEN','FIFTEEN',
'SIXTEEN','SEVENTE','EIGHTEEN','NINTEEN',
'TWENTY','THIRTY','FOURTY','FIFTY','SIXTY',
'SEVENTY','EIGHTY','NINTY');
{ *** WRITER *** }
procedure writer(nu:integer);
begin
if num>99 then
write(a[num div 100],' HUNDRED');
if num mod 100=0 then
exit;
if num mod 100<20 then
write('':2,a[num mod 100])
else
begin
write('':1,a[((num mod 100) div 10)+18],'');
write('':1,a[((num mod 100) mod 10)],'');
end; { for else }
end;
{ --- MAIN BODY --- }
begin
clrscr;
textbackground(0);
textcolor(10);
writeln;
write( ' ENTER AN INTEGER NUMBER <1000 : ');
readln(num);
textcolor(11);
if (num<=999) and (num>0) then
writer(num);
readln;
end.

---