определить значение пременной а после выполнения следуюших фрагментов программы:
var a:real; i:integer;
a:=1; i:=1;
while i<5 do i:==i+1;  a:=a+1*i;