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