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