Var sum,i : Integer;
Begin
sum:=0;
For i:=1 to 10 do sum:=sum+i;
Writeln(sum);
end.
Writeln((10+1)*10 div 2);
Var sum,i : Integer;
Begin
sum:=0;
For i:=1 to 10 do sum:=sum+i;
Writeln(sum);
end.
Begin
Writeln((10+1)*10 div 2);
end.