pascal - 複数のステートメントを 1 つの case ステートメントに使用するにはどうすればよいですか?

Question

だから私はパスカルを使用しています.1つのケースに複数のステートメントを追加したいと思います. このコードを試してみましたが、「エラー: 定数と CASE 型が一致しません」というエラーが表示されます。

procedure pay;
begin
loop:=loop+1;
CASE loop OF
1: 
writeln('E-Mail: ');
readln(mailO[1]);
writeln('amount: ');
readln(amount[1]);


end;

Answer 1

複合ステートメントをbeginandでラップしendます。

procedure pay;
begin
  loop:=loop+1;
  CASE loop OF
    1: 
       begin
         writeln('E-Mail: ');
         readln(mailO[1]);
         writeln('amount: ');
         readln(amount[1]);
       end;

   2:  writeln('simple statement');

   3:  begin
         writeln('something else');
         writeln('etc.');
       end;

  end;
end;