Программирование циклов с условием, Вопрос Опции

[Stas86]

Добрый день. Вот такая задачка.

Program z1;
Uses crt;
Var
s,t,n,E:real;
begin
writeln ('Введите точность');
Readln (E);
s:=1;
t:=1;
n:=1;
while abs (t)>e do
begin
n:=n+1;
t:=t*x/n;
s:=s+t;
end;
write ('S', S:0:4);
Readkey;
End. 

Преподша сказала, что нужно добавить еще три строчки факториала. Вот собственно в этом и вопрос.
Условие задачки на изображении.[code]

[-TarasBer-]

Тебе программа при старте показывает чёрное окно с мигающим курсором. Ты набираешь на клавиатуре число, нажимаешь ентер (это выполнилась строчка Readln(e)), потом вводишь второе число (икс).
Если ты ничего не вводишь, то откуда ты вообще взял "программы выводит ноль"? Как она может что-то вывести, если она всё время ждёт ввода числа e?