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

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

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