var
s, ss: string;
ls, lss, i, j: integer;
flag: boolean;
begin
readln(s);
readln(ss);
i := 1;
ls := Length(s);
lss := Length(ss);
flag := false;
while i <= ls - lss + 1 do
begin
if s[i] = ss[1] then
begin
flag := true;
for j := 1 to lss - 1 do
if s[i + j] <> ss[j + 1] then
begin
i := i + j;
flag := false;
break
end;
if flag then
begin
write('является');
exit;
end;
end;
i += 1;
end;
write('не является');
end.
dlina — идентификатор (имя) массива;
для объявления используется служебное слово Array (в переводе с англ. «массив» или «набор»);
[1..3] — в квадратных скобках ставится номер (индекс) первого элемента, затем две точки и индекс последнего элемента массива, т.е. по сути, указывается количество элементов; количество элементов массива называется размерностью массива
of integer (с англ. «из целых чисел») — указывает, к какому типу относится массив, of здесь — служебное слово.
Объяснение: