Числа вводим опока не будет больше ста. (Задачка)

[Vanet]

Числа вводим опока не будет больше ста.
Выводим результат сразу после того как получилось сто. и колличество введённых чисел.

[mihali4]

Сообщение от Vanet

Числа вводим опока не будет больше ста.
Выводим результат сразу после того как получилось сто. и колличество введённых чисел.

Результат чего? А количество чисел всегда будет равно 101, можно зашить в CONST...
И где, собственно, вопрос? Какой язык программирования? Нужна помощь или готовый код (по причине обуявшей лени)?

[Vanet]

Прога должна спрашивать, у поьзователя ввод чисел, вводим числа пока их сумма не превысит число 100, в тот момент когда оно превисит прога выводит конечный результат, и кол-во чисел(счетчик). *Pascal*
P/S. если 101 то и выводим 101, т.к. это будет конечный резыльтат.
Нужен код проги. т.к. утром сдавать, а надо ещё и разабраться.

Зараннее спасибо!

[necky]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
var n,s:integer;
begin
s:=0;
while (s<100) do begin
writeln('Vvedite chislo:');
readln(n);
s:=s+n;
end;



writeln('Summa = ',s);
writeln('Vihod');
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.