Помогите сделать задачу в Паскале

Решение на Turbo Pascal 7.0 (Pascal ABC = shift +F9) (просто так ...)

uses crt;
var x: integer;

function pause (x: integer): integer;
var i: integer;
begin
For i:=1 to 7 do
begin
sleep (x);
write ('.');
end;
writeln;
end;
begin
clrscr;
randomize;
write (' Задумайте число ');
pause (500);
sleep(2500);
write (' Задумали? ');
pause (500);
sleep(2500);
write (' Умножаем его на 2 (press any key)');
pause (500);
sleep(2500);
repeat until keypressed;
x:=random (5);
case x of
0: write (' Прибавляем к нему "1" ');
1: write (' Прибавляем к нему "7" ');
2: write (' Прибавляем к нему "5" ');
3: write (' Вычитаем из него "3" ');
4: write (' Вычитаем из него "7" ');
else write (' Вычитаем из него "1" ');
end;
pause (500);
sleep(2500);
repeat until keypressed;
write (' Умножь полученное число на "5" ');
pause (500);
sleep(9500);
repeat until keypressed;
write (' В полученном числе зачеркни первые цифры, оставь только последнюю ');
pause (500);
sleep(2500);
repeat until keypressed;
write (' Умножь эту цифру на "2" ');
pause (500);
sleep(4500);
repeat until keypressed;
write (' Прибавь "1" ');
pause (500);
sleep(4500);
writeln;
writeln;
repeat until keypressed;
clrscr;
writeln;
writeln;
textcolor (green);
write (' Идет расчет ':25);
For x:=1 to 7 do
begin
sleep (1000);
write ('.');
end;
sleep (1000);
textcolor (red);
gotoxy (31, 12);
writeln ('ВАШ ОТВЕТ 11');
sleep (7000);
repeat until keypressed;
writeln;
writeln;
textcolor (white);
writeln (' Все конец, Всем спасибо за внимание ');
writeln;
writeln (' EXIT (press any key, Enter) ');
readln;
end.