[Asira]

Код:

{$APPTYPE CONSOLE}

uses
  SysUtils;

var str, slovo: string;
       ks, ns, i, j: integer;
       sb,mn1, mn2, mn3, mn4: set of char;
       c, a: char;

begin
   mn1:=[]; mn2:=[]; mn4:=[];
   sb:=['b','d','g','j','n','m','r','v','z','w'];
   readln (str);
   i:=1;
   while i<=length (str) do
     begin
        while (str[i]=' ')
        //and (i<=length (str))
        do i:=i+1;
        ns:=i;
        while (str[i]<>' ')
        //and (i<=length (str))
         do i:=i+1;
        ks:=i;
        slovo:= copy(str, ns, ks-ns);
        for j:=1 to length(slovo) do mn1:=[slovo[j]];
        mn4:=sb -mn1;
          for c:=chr(0) to chr (255) do
   if c in mn4 then write (c,' ');
 writeln(' ');
        end;
begin
i:=length(str);;
while (str[i]=' ')
 ///and (i<=length (str))
  do i:=i-1;
        ks:=i;
        while (str[i]<>' ')
        //and (i<=length (str))
         do i:=i-1;
        ns:=i;
        slovo:= copy(str, ns, ks-ns);
for j:=1 to length (slovo) do mn3:=[slovo[j]];
       mn1:=[];
mn1:=mn4 - mn3;
  for c:=chr(0) to chr (255) do
   if c in mn4 then write (c,' ') end;
while i<=length (str) do
begin
      while (str[i]=' ') and (i<=length (str)) do i:=i+1;
        ns:=i;
        while (str[i]<>' ') and (i<=length (str)) do i:=i+1;
        ks:=i;
        slovo:= copy(str, ns, ks-ns);
for j:=1 to length(slovo) do mn2:=mn2+[slovo[j]];
mn3:=mn2*mn1;
for c:=chr(0) to chr (255) do
   if c in mn3 then write (c,' ');
   writeln(' ');
   readln;
   end;
end.