Определить значение пременной а после выполнения следуюших фрагментов программы:var...

Question

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

Answer 1

Var a:real; i:integer;
begin
a:=1;
i:=1;
while i<5 do<br>begin
i:=i+1;  
a:=a+1*i;
end;
writeln(a);
end.

Такая программа, наверное) значит а=15