2 программы

program z30;
{Даны две послед. x и y. Найти послед. z, которую можно
 получ. вычёркиванием элм как из x, так и из y        }
uses crt;
var x,y,z:string;l,i,j:longint;
    label m1;
 begin
  clrscr;
   write('первая последовательность:');readln(x);
   write('вторая последовательность:');readln(y);
   l:=length(y);i:=1;z:='';
  m1:while i<=length(x) do
      begin
       for j:=1 to l do
        if x[i]=y[j] then begin
                           z:=z+x[i];inc(i);
                           delete(y,j,1);l:=l-1;
               goto m1;
                          end;
       inc(i);
     end;
   if z='' then write('последовательность невозможна')
           else write('ответ:',z);
  readln;
 end.

program z31;
{Ввод '352', вывод-'три пять два'}
uses crt;
var a,c:string;i,j:integer;
    b:array[1..10]of string;
  begin
    clrscr;
      a:='0123456789';
      b[1]:='нуль';   b[2]:='один';   b[3]:='два';  b[4]:='три';
      b[5]:='четыре'; b[6]:='пять';   b[7]:='шесть';b[8]:='семь';
      b[9]:='восемь'; b[10]:='девять';
      write('Введите число:');readln(c);
       for i:=1 to length(c) do
          for j:=1 to 10 do
         if c[i]=a[j] then write(b[j],' ');
    readln;
  end.