А почему не так...?
Uses Crt;
Var
I:Integer;
St:String;
BEGIN
ClrScr;
TextColor(2);
Write('Wake up, Neo...');
For I:=1 To 27 Do
Begin
Delay(60000);
End;
ClrScr;
St:='Matrix has you. Follow the white rabbit.';
For I:=1 To Length(St) Do
Begin
Write(St[I]);
Delay(60000);
End;
END.

Адрес поста | Один пост | Сообщить модератору | IP: Logged