Помогите решить задачу в паскале, пожалуйста! !

1)

var
    s: integer;
begin
    write('summa? ');
    readln(s);
    writeln('n: ', -1 + sqrt(1 + 8.0 * s) / 2:0:0);
end.

2) 3) Слишком много "вопросов" для одного "вопроса"

ФИгасе помощь. . Это типа "помогите мне построить дом, вон место, кирпичей нет, досок нет, нчиего нет, я ничо не знаю, просто хочу дом " хД
1. Ну так ладно, шол Йожыг ччота по лесу и смотрит число валяется, адыничка.. . Идет дальше - двоичка. . Ну думает точно потерял кто-то, а вдруг сумму ищут? Ну думает вдруг чо еще найду, создам ка я цикл. И зоздал он цикл while пока в том сума не была равно сумме он присваивал к сумме следующее число и получилось у него:
sum:=0; n:=1;
while (sum<=chislo) do
begin
sum:=sum+n;
inc(n);
end;
writeln ('Количество чисел равно ',n);
2. Пришол Уася на фирму, а акции хаха! Думает дай гляну чоле! А машина фигак akts:=random(101); Но Уася ж этого низнал, он решил купиць акцыыи. А машина фигак akts2:=random(101); И ечли akts2-akts>0, тогда Уася банкрот, иначе в шоколаде!
3. Ух тут пачка чисел собрались и грят6 "Ты гавно, ты не делишься на 2!", "А ты падла на 3 не делишся! ". "Нифига я делюсь! ". "А нифига не делишься"! И решили они попросить список у великого паскаля тех, кто не делиццо! И ввели они
n:=0;
for i:=1000 to 9999 do if (i mod 2 <>0) and (i mod 3 <>0) then inc(n);
writeln(n);
и выдала им система количество говнюков, которые одновременно не делятся ни на два, ни на три =)

Пишите на почту или в асю 586178755