Решить в Pascal:
Дана строка и некоторое слово. Напечатать те предложения строки, которые содержат данное слово.

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin   var s: =readlnstring;   var a: =s.towords('.').select(t-> trim(;   var b: =s.towords(arr('.',' '))           .groupby(t-> t).select(t-> (t.key,t.count))           .where(t-> t[1]> 1).select(t-> t[0]).toarray;   a.cartesian(b,(p,q)-> p.contains(q)? p: '')           .where(t-> t.length> 0).distinct.printlines end. примеры мама мыла полы. маша ела кашу. даша пила молоко. таня мыла полы. мама мыла полы таня мыла полы мама мыла раму. маша ела кашу. даша пила молоко. таня мыла полы. мама мыла раму таня мыла полы

1)1. 512 байт
2.на 12 байт
3. 96 бит.
2)1. 512 байт
2. 4096 бит
3. В 32 раза.

Var  a,b,c,mi: integer;begin
  readln (a,b,c);
  if ((b>a) and (b<c)) or ((b>c) and (b<a)) then mi:=b;
  if ((a>b) and (a<c)) or ((a<b) and (a>c)) then mi:=a;
  if ((c>a) and (c<b)) or ((c<a) and (c>b)) then mi:=c;
  write (mi);
end.    

Тип 4*2=8?Или не так?