Ответ:

a:=12
i:=9

Объяснение:

var a: real; i: real;

begin

 i:=0;

 a:=3;

 while i<10 do

   begin

   a:=a+1;

   i:=i+1;

   end;

 writeln(a);

 write(i)

end.

Про алгоритмический язык я хз