program neves2;
var t:array[1..25,1..80,1..2] of char absolute $B800:0;
const s:string='Valaki';
var   i:byte;
begin
     for i:=1 to length(s) do
      t[15,10+i,1]:=s[i];
     readln
end.