Uses crt;
Var q,w,x, y:integer;
a:string;
begin
Writeln('Введите номер столбца');
Readln(x);
Writeln('Введите номер строки');
readln(y);
writeln('Введите номер фона цвета');
readln(e);
Writeln('Введите номер фона текста');
Readln(w)
writeln('Введите текст');
Clrscr;
TextBackGround (e);
TextColor (w);
GotoXY (x,y);
writeln(a);
readln;
end.