ปาสคาล

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.