Написать программу в Паскале.
Задача: Заполнить экран синим цветом.Введите строчку с клавиатуры.Выведите строку в правом верхнем углу экрана,вставив в нее после первого заданное слово.

uses
  GraphABC;
var
  s: string; //Вся строка
  i: byte;   //Номер нужного слова
begin
  readln(s);
  readln(i);
  s := s.Split( )[0] + + s.Split( )[i - 1];
  SetBrushColor(clBlue);
  FillRectangle(0, 0, WindowWidth, WindowHeight);
  GraphABC.SetFontSize(12);
  TextOut(WindowWidth - s.Length * 12, 0, s);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.