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.