在 Pascal 中使用大小写的添加菜单

Question

我正在尝试使用 Pascal 中的 case of 添加菜单。我正在使用 pascal，这个代码语句有什么问题？这是我在 Pascal 上的程序：

program InputNilai;
uses crt;
var
  a,b,h : integer;
  pilihan : char;
begin
  clrscr;
  write('1. Penjumlahan');
  write('2. Perkalian');
  write('Masukkan pilihan: '); readln(pilihan);
  
  // menggunakan kondisi case of
  case (pilihan) of
    A : begin
          write('Masukkan angka pertama: '); readln(a);
          write('Masukkan angka kedua: '); readln(b);
          h := a + b;
          writeln('Result is: ',h);
        end;
    B : begin
          write('Masukkan angka pertama: '); readln(a);
          write('Masukkan angka kedua: '); readln(b);
          h := a * b;
          writeln('Result is ',h);
        end;
    else 
      writeln('Not valid');
  end;
  readln;
end.

Answer 1

program InputNilai;

uses crt;

var
  a,b,h : integer;
  pilihan : integer;

begin
  clrscr;
  writeln('1. Penjumlahan');
  writeln('2. Perkalian');
  writeln('Masukkan pilihan: ');
  readln(pilihan);
  
  // menggunakan kondisi case of
  Case pilihan of
    1:begin
        writeln('Masukkan angka pertama: '); readln(a);
        writeln('Masukkan angka kedua: '); readln(b);
        h := a + b;
        writeln('Result is: ',h);
      end;
    2:begin
        writeln('Masukkan angka pertama: '); readln(a);
        writeln('Masukkan angka kedua: '); readln(b);
        h := a * b;
        writeln('Result is ',h);
      end;
  else 
    writeln('Not valid');
  end;

  readln;
end.

在 Pascal 中使用大小写的添加菜单

Addition menu using case of in Pascal

calculator

pascal