Program szines_kiir; uses crt; var s:string; begin ReadLn(s); textbackground(blue); clrscr; gotoxy(40-length(s) div 2, 13); textcolor(red); write(s); textbackground(black); readln; textcolor(7); writeln; clrscr; end.