ปาสคาล

program test;
uses crt;
const donller=30;
          euro = 50;
          yen = 40;
var mn:string;
      baht,money:integer;
      totol:real;
begin
repeat
        clrscr;
        writeln('inset you money=');
        writeln('1.donller');
        writeln('2.euro');
        writeln('3.yen');
        writeln('4.Exit');
        readln;
        if (mn='1') then
                begin
                     write('baht=');
                      readln(baht);
                      money:= donller*baht;
                     writeln('money donller=',money);
                     readln;
                 end;
         else if (mn='2') then
                      begin
                              clrscr;
                              write('baht=');
                              readln(baht);
                              money:= euro*baht;
                              writeln('money euro=',money);
                               readln;
                     end;
                  else if (mn='3') then
                         begin
                                  clrscr;
                                  write('baht=');
                                  readln(baht);                                 
                                  money:= yen*baht;
                                  writeln('yen=',money);
                                  readln;
                          end;
           until(mn='4');
end.

โปรแกรมแปลงค่าเงินเหรอครับ