6. пункты A2:B2 и D2;B4
7. 1) минимум три клетки.
2) A2:B2 и D4
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var s1:=ReadLnString('1: ');
var s2:=ReadLnString('2: ');
s1.ToLower.Intersect(s2.ToLower).OrderBy(t->t).Println(',')
end.
I=64x проходили год назад.
Program n1;
var i: integer;
begin
for i:=111 to 981 do if ( i mod 3=0) and (i mod 10=1) then write(i,' ');
end.