8 lines
176 B
ObjectPascal
8 lines
176 B
ObjectPascal
|
begin
|
|||
|
|
with System.Console do begin
|
|||
|
|
if CursorLeft >= 0 then
|
|||
|
|
WriteLine;
|
|||
|
|
Write('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> . . .');
|
|||
|
|
Readkey(true);
|
|||
|
|
end;
|
|||
|
|
end.
|