program osszeg;
uses crt;
var i,n:byte;
    osszeg:integer;
begin
     clrscr;
     writeln('Add meg, hogy meddig adjuk ossze a szamokat!');
     readln(n);
     osszeg:=0;
     for i:=1 to n do
     osszeg:=osszeg+n;
     writeln('Az osszeg: 'osszeg);
readln;
end.