在Ada中，可以使用“pragma”语句来告诉编译器将变量存储在寄存器中。以下是使用显式寄存器变量的示例代码：

with Ada.Text_IO; use Ada.Text_IO;

procedure Main is pragma Optimize(0); pragma Register(First, "R12"); pragma Register(Second, "R13");

First : Integer := 10; Second : Integer := 20; begin Put_Line("Initial values: First=" & First'Image & ", Second=" & Second'Image);

First := First * 2; Second := Second * 2;

Put_Line("New values: First=" & First'Image & ", Second=" & Second'Image); end Main;

在这个示例代码中，变量“First”和“Second”被指定为将存储在R12和R13寄存器中。使用这种方式，程序可以直接将值存储在寄存器中，而不是从内存中读取值。但是，需要注意的是，当编写这样的代码时，必须小心地手动处理变量的生命周期，以确保该变量在任何需要使用它的地方都能访问到。