Question

определить результат выполнения программы:
var i, sum:integer;
begin
sum:=0; i:=1;
while i<=3 do
begin sum:=sum+i;
i:=i+1; end;
writeln(sum); end.

Answer 1

Результат выполнения программы: 6