program cyklus_for; uses crt; var i, ZatialSucet:integer; begin writeln('Sucet cisel 1 + 2 + 3 + ... + 99 + 100 je '); ZatialSucet:=0; for i:=1 to 100 do ZatialSucet:=ZatialSucet + i; writeln(ZatialSucet); readln; end.