var vysledek, vstup, iterator;

begin
	vstup:= 5;
	
	vysledek:= 0;
	iterator:= 1;
	do
		begin
			vysledek:= vysledek + iterator;
			iterator:= iterator + 1;
		end;
	while iterator < vstup;
end.