Выбери правильное значение переменных после выполнения программы

Program pr 3;

var a;b:real;

begin

a:=5

b:=10

While a>1do

begin

b:=b*0.5;

a:=a-1;

end

end;

чему равно значение переменной b после выполнения программы
1) 0
2)0.625
3)2.5
4)0.3125

ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об а так например импорт-экспорт есть во многих прогах (оффис вот

для pascal abc

uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.