Задачи на циклы - Pascal

[Kostia]

http://ru.wikipedia.org/wiki/%D0%A4%...B8%D0%B0%D0%BB

function Factorial(n: integer): integer;
var
  i,f: integer;
begin
  f:=1;
  for i:=2 to n do
    f:=f*i;
  Factorial:=f;
end;

[die_hard]

Спасибо, Костя, постараюсь разобраться с факториалом...)))
А кто знает как решить такую задачу: "Дано целое число N (>1). Вывести наибольшее из целых чисел K, для которых сумма 1 + 2 + … + K будет меньше или равна N, и саму эту сумму."
Я думаю примерно следующим образом, но ничего не выходит:
program _;
var n, k, i, s :integer;
begin
readln (n);
i:=0;
s:=0;
k:=1;
while (n-s)<0 do
s:=i+k;
k:=i+1;
i:=i+1;
writeln (s);
writeln (k);
end.
Можете пожалуйста разъяснить где я делаю ошибку или дать своё решение?!

[Serge_Bliznykov]

1) определитесь, какие операторы вы хотите выполнять в цикле. и их возьмите в операторные скобки - вначале поставьте begin .. потом end
2) а что за условие (n-s) < 0
цикл while - выполняется ПОКА УСЛОВИЕ ИСТИННО.
у Вас сразу же оно ложно и оператор цикла не выполнится ни разу!

попробуйте такую программку:

var n, k, s :integer;
begin
  readln (n);
  s:=0;
  k:=0;
  while n>(s+k) do
  begin
    k:=k+1;
    s:=s+k;
    WriteLn('Отладка цикла: k=',k:1,'  sum=',s:1)
  end;
  writeln ('K=',k:1);
  writeln ('Summa=',s:1);
end.

p.s. отладочный Writeln, разумеется можно выкинуть...

[die_hard]

Спасибо персонально Serge_Bliznykov и спасибо всем кто помог=)) лаба вроде выполнена)))