паскаль

[ДрАгОцЕнНоСтЬ]

это должна быть своего рода игрушка.на экране появляются на некоторое время числа заданные случайным образом, потом они исчезают. нужно посчитать их сумму и ввести ответ, если верно то вы выиграли, если нет то проиграли.поможите сделать?

[Stilet]

м.м.м с потолка:

var s,i:integer;l:Longint;
begin
 write('Смотри в оба!');s:=0;
 for i:=0 to 100 do begin
   gotoxy(1,1);
   l:=random(1000000);
   s:=s+l;
   write(l);
   delay(500);
 end;
 Write('А терь резко введи сумму этих чисел');read(i);
 if i=s then write('Та ты крутой...') else write('Здесь могла бы быть ваша реклама...');
end.

[_-Re@l-_]

Какая-то delay маленькая..500 всего. Пользователь даже не успеет заметить эти числа