UNIT TEKST;

INTERFACE
uses crt;
procedure WriteXY(x,y:byte; s:string);

IMPLEMENTATION
procedure WriteXY(x,y:byte; s:string);
begin
  GotoXY(x,y);
  Write(s);
end;

begin
  writeln('O_K');
end.