program liczbynieparzyste1000;
{
Suma 1000 liczb nieparzystych poczynając od 7
Pętla repeat
https://i...content-available-to-author-only...e.com/VFVCxw
}
var
	n: integer; // ile liczba trzeba sumować
	liczba: integer;
	suma: integer; // suma liczb
	i: integer; // zmienne pomocnicze
 
begin
	n := 3;
	suma := 0;
	liczba := 7;
	i := 1;
	repeat
		suma := suma + liczba;
		liczba := liczba + 2;
		i := i + 1;
	until (i > n);
 
	writeln(suma);
end.

cHJvZ3JhbSBsaWN6YnluaWVwYXJ6eXN0ZTEwMDA7CnsKU3VtYSAxMDAwIGxpY3piIG5pZXBhcnp5c3R5Y2ggcG9jenluYWrEhWMgb2QgNwpQxJl0bGEgcmVwZWF0Cmh0dHBzOi8vaS4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uZS5jb20vVkZWQ3h3Cn0KdmFyCgluOiBpbnRlZ2VyOyAvLyBpbGUgbGljemJhIHRyemViYSBzdW1vd2HEhwoJbGljemJhOiBpbnRlZ2VyOwoJc3VtYTogaW50ZWdlcjsgLy8gc3VtYSBsaWN6YgoJaTogaW50ZWdlcjsgLy8gem1pZW5uZSBwb21vY25pY3plCgkKYmVnaW4KCW4gOj0gMzsKCXN1bWEgOj0gMDsKCWxpY3piYSA6PSA3OwoJaSA6PSAxOwoJcmVwZWF0CgkJc3VtYSA6PSBzdW1hICsgbGljemJhOwoJCWxpY3piYSA6PSBsaWN6YmEgKyAyOwoJCWkgOj0gaSArIDE7Cgl1bnRpbCAoaSA+IG4pOwoJCgl3cml0ZWxuKHN1bWEpOwplbmQu