ช่วยเขียนโปรแกรมให้หน่อย คับขอแบบเต็มๆนะคับ

จะแนะนำเป็นแค่แนวทางนะครับ

เงินแปลงสกุลเงินต่างๆ
ก็ใช้ if เหมือนพวกตัดเกรด ขั้นตอนแรก แสดงเมนูก่อน ว่า 1,2,3,4 สกุลเงินอะไร แลกเปลี่ยนเป็นเงินบาทเท่าไหร่ จากนั้นก็ให้กรอกจำนวน แล้วแปลงตามเงื่อนไข นั้นๆ

เครื่องคิดเลข ก็ใช้เหมือนกันครับ รับค่าตัวเลข แล้วก็ให้ระบุเงื่อนไข ว่าให้ทำอะไร

ค่าน้ำ ค่าไฟ ก็ ให้รับจำนวนหน่วย มา * กับจำนวน หน่วย / บาท

เขียน ให้หน่อยได้ไหม คับ ผมเขียน ไม่ เป็นอะคับ

เอา ของ แปลงค่าเงิน อะคับ  ช่วยทีนะคับ

เช่น เงินไทย เป็นดอลล่า เงินไทย แปลงเป็นหยวน เงินไทย แปลงเป็น ยูโร  เขียนให้หน่อยนะครับผมไว้ ละคับ

ภาษา pascal อะคับ

แปลงค่าเงิน สกุลต่างๆ ผม ลองเขียนแล้ว RUN ไม่ได้พี่แก้ให้ผมด้วยนะคับ
program teat1;
uses Crt;
var baht,donller,euro,yen,money:integer;
begin
    Clrscr;
    writeln('inset you money=');
    writeln('1.donller');
    writeln('2.euro');
    writeln('3.yen');
    writeln;
    case money of
        '1donller':begin
                    write('baht='); readln(baht);
                    write('donller='); readln(donller);
                    money: 30*donller*baht=;
                    writeln('money donller=')
                    end;
          '2euro'  :begin
                    write('baht='); readln(baht);
                    write('euro='); readln(euro);
                    money: 50*euro*baht=;
                    writeln('money euro=')
                    end;
          '3yen'  :begin
                    write('baht='); readln(baht);
                    write('yen='); readln(yen);
                    money 40*yen*baht=;
                    end;
        readln;
End.

เดียวไว้เคลียงานเส็ดแวะมาตอบให้นะครับ

ขอบคุณ ค๊าบบบบบบบ  ผมส่งวัน จันทร์ นะค๊าบ ท่าไม่เสร็จ ผม 0แน่ เลย ค๊าบ