uses
Crt,
classes, sysutils, strutils;
var
Line1 : string;
c : string;
Begin
SetUseACP(False);
TextColor(LightBlue);
c:=chr(219);
Line1:=' 77777777777777 7777777777777777777 777777777777 777777777777';
Line1 := StringReplace(Line1, '7', c, [ rfReplaceAll ]);
ClrScr;
writeln(Line1);
readln();
end.