С клавиатуры вводят два слова, каждое из которых распологается на одной строке.…

Пример на паскале держи: Var s,sl: string; A: array[1… 30] of string; //массив строк, который будет хранить словаn,i,j: byte; Begin write ('Введите строку: '); readln (s); s: =s+'; n: =0; While Pos (',s) >0 do Begin if Copy (s,1,Pos (',s) -1) <>' then Begin inc (n); A[n]: =Copy (s,1,Pos (',s) -1); End; Delete (s,1,Pos (',s); End; For i: =n downto 2 do For j: =2 to i do if A[j] комментировать