program Applications;
uses crt;
var summ,i:integer;
begin
  summ:=0;
  for i:=1 to 10 do
    begin
      summ:=summ+i;
    end;
writeln('summ=', summ);
readln;
end.