6. Выбери правильный вариант действий при подготовке
документа к печати: А-Выберите нужный масштаб документа В-Закройте окно "Предварительного С-
Перед распечаткой выполните команду "Предварительный весь документ Е-Если документ
выглядит так, как вам нужно, его можно распечатать *
O
ABCDE
DABEC
O
EABCD
CADBE​

//PascalABC.Net 3.0, сборка 1064
var
  s,w:string;
begin
  Write('Введите предложение: '); Readln(s);
  Write('Введите искомое слово: '); Readln(w);
  s:=' '+s+' ';
  if Pos(' '+w+' ',s)>0 then Writeln('Слово входит в предложение')
  else Writeln('Слово не входит в предложение')
end.

Тестовые решения:
Введите предложение: А роза упала на лапу Азора
Введите искомое слово: роза
Слово входит в предложение

Введите предложение: Вчера смотрели старую кинопанораму
Введите искомое слово: кино
Слово не входит в предложение

Введите предложение: Интересное было кино или так себе?
Введите искомое слово: кино
Слово входит в предложение

Замечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о  контексте (подстроке)

1.

unit Unit2;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Spin;

const

 n = 4;

type

 TFormT = class(TForm)

   Button1: TButton;

   Memo1: TMemo;

   Label1: TLabel;

   procedure Button1Click(Sender: TObject);

 private

   b: array[0..n-1, 0..n-1] of integer;

   procedure FillArray;

 public

 end;

var

 FormT: TFormT;

implementation

{$R *.dfm}

{ TForm2 }

procedure TFormT.Button1Click(Sender: TObject);

begin

 memo1.Clear;

 Label1.Caption := '';

 FillArray;

end;

procedure TFormT.FillArray;

var

 i, j, S : Integer;

 P : Longint;

 st : string;

begin

 randomize;

 P:=1;

 S:=0;

 for i:=0 to n-1 do begin

   st:='';

   for j:=0 to n-1 do begin

     b[i, j]:= 1+ Random(10);

     st := st + format('%2d ',[b[i, j]]);

     if b[i, j] mod 2 <> 0 then begin

       P := P * b[i, j];

       S := S + b[i, j];

     end;

   end;

   Memo1.Lines.Add(st);

 end;

 Label1.Caption :='Произведение=' + inttostr(p) +'    Сумма=' + inttostr(s);

end;

end.