คัยรู้ ช่วยทีคับบ ด่วนมากๆ !!รบกวนหน่อยคับบ (adminยิ่งดีคับบ)

คือผมอยากรบกวนพี่ๆช่วยแปล ความหมายของ

Program เช็คว่าคุณแก่หรือยังโดย pascal ของพี่adminที่เคยลงเอาไว้อะคับบ (ที่ละบรรทัด)
เอาหมดเลยนะคับ

เช่น      program t4; หมายความว่าไง    ....................
          uses crt;          ,,            ....................

ปล. ขอบคุณล่วงหน้าคับบ ลงไว้ที่เวปหรือไม่ก็ส่งมาื่ทางอีเมล์ก็ได้คับบ ผมแอดเมล์ไปแล้ว
    [email protected] (เอาทั้งสองแบบเลยนะคับ if/case) :-* :-*"

โปรแกรม เช็คว่าอายุคุณแก่หรือยัง
--------------------------

โดยรับค่า ชื่อ สกุล และ อายุของคุณ จากนั้นใช้เงื่อนไขโดย

กำหนดว่า ถ้าอายุ น้อยกว่า 0 = "ERROR"
          ถ้าอายุ 0-10 = "Baby"      = เด็กน้อย
          ถ้าอายุ 11-18 = "teens"    = วัยรุ่น
          ถ้าอายุ 19-30 = "Workers" = วัยทำงาน
          ถ้าอายุ 31-60 = "Elderly" = วัยทอง
          มากกว่า 60 = "Geezer" = คนแก่

จะสามารถทำได้ 2 รูปแบบนะครับ แบบแรกคือ ทำโดยใช้ IF แบบที่สอง คือทำโดยใช้ Case

แบบแรก If

program it4x;
uses crt;
var name,surname:string;
    old:integer;
begin
    clrscr;
    write('Input Your Name = ');
    readln(name);
    write('Input Your SurName = ');
    readln(surname);
    write('How Old Are You ? = ');
    readln(old);
    clrscr;
    writeln('Your name = ',name,' ',surname);
    if old<=0 then
    writeln('Your old Error')
    else
    if old<=10 then
    writeln('Your old Baby')
    else
    if old<=18 then
    writeln('Your old Teens')
    else
    if old<=30 then
    writeln('Your old Workers')
    else
    if old<=60 then
    writeln('Your old Elgerly')
    else
    if old>=61 then
    writeln('Your old Workers');
    ;;;;;;
    readln;
end.
ลอง Copy ไปรันดูครับ

แบบที่สองแบบ Case

program it4x;
uses crt;
var name,surname:string;
    old:integer;
begin
    clrscr;
    write('Input Your Name = ');
    readln(name);
    write('Input Your SurName = ');
    readln(surname);
    write('How Old Are You ? = ');
    readln(old);
    clrscr;
    writeln('Your name = ',name,' ',surname);
    case old of
    0..10:writeln('Your Old Baby');
    11..18:writeln('Your Old Teens');
    19..30:writeln('Your Old Workers');
    31..60:writeln('Your Old Elderly');
    61..100:writeln('Your Old Geezer');
    else
    writeln('Your Old ERROR');
    end;
    readln;
end.
                                                        นี้อะึัคับ  ช่วยผมที  !!  ด่วนมาก