Program Osszeg;
Uses Crt;
Var
        i,osszeg:integer;
Begin
ClrScr;
osszeg:=0;
For i:=1 to 10 do
        osszeg:=osszeg+1;
Writeln('1-10-ig a szamok osszege:  ',osszeg);
Readln;
End.