Перемножить число A1 и A2, записанные в двоичной системе счисления. Проверить выполненную операция, переведя слагаемые и сумму в десятичную систему счисления. A1 - 1101 A2 - 1000

program Slova;
uses
crt;

var
words : array[1..100] of string;
wc : integer;
All,currword,tmp : string;
i,j : integer;

begin

 

   clrscr;

 

   wc := 1;

 

   writeln('‚ўҐ¤ЁвҐ б«®ў : '); // 'Введите слова'

 

   read(All);

 

   All := All + chr(32)+ chr(32);

 

    for i := 1 to length(All)-1 do
     begin

       if ord(All[i]) = 32 then
        begin

          if currword <> '' then
            begin
             words[wc] := currword;
             inc(wc);

             currword := '';
            end;

          continue;

        end else
      begin

currword := currword + All[i];

end;

end;

 

 for i := 1 to wc-2 do
  for j := i + 1 to wc-1 do
   if words[i] > words[j] then
    begin
    tmp := words[i];
    words[i] := words[j];
    words[j] := tmp;
    end;

 

  writeln('ђҐ§г«мв в: '); // 'Результат'

 

  for i := 1 to wc-1 do
   write(words[i] + ' ');

   

 readln(tmp);
 read(tmp);

end.

program P1;
uses
crt;
var
mas : array[1..20] of integer;
i,j,k : integer;
tmp : string;
begin

clrscr;

writeln('Start array: ');

for i := 1 to 20 do
begin

mas[i] := random(100);

write(mas[i],' ');

end;

for i := 1 to 20 do
begin

if mas[i] mod 2 = 0 then
mas[i] := 0;

end;

 

for i := 1 to 20 do
begin

if mas[i] = 0 then
begin

for j := 20 downto i do
if mas[j] <> 0 then
begin

k := mas[j];
mas[j] := mas[i];
mas[i] := k;

end;

end;

end;

writeln('');
writeln('Result array: ');

for i := 1 to 20 do
write(mas[i],' ');

readln(tmp);
read(tmp);

end.