Различие между датчиком цвета и ультразвуковым датчиком​

//PascalABC.NET 3.2 сборка 1318

Var
  s1,s2,c:string;
  i:integer;
begin
write('Type s1:');
readln(s1);
write('Type s2:');
readln(s2);
if length(s1)>length(s2) then
  begin
    for i:=1 to length(s1) do
      if (s1[i]>='0') and (s1[i]<='9') then write(s1[i]);
    writeln;
    for i:=1 to length(s2) do
      if ord(s2[i])>70 then write(s2[i]);
  end
else
  begin
    for i:=1 to length(s1) do
      if ord(s1[i])>70 then write(s1[i]);
    writeln;
    for i:=1 to length(s2) do
      if (s2[i]>='0') and (s2[i]<='9') then write(s2[i]);
  end;
end.

Пример ввода:
Type s1:Mi Zu
Type s2:MeL10N
Пример вывода:
MiZu
10

1)
var a: array [1..10] of integer;
    i, m: integer;
begin
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 0) then m := m + a[i];
     end;
     writeln(m);
end.

2)
var a: array [1..10] of integer;
    i, m: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 1) then m := m * a[i];
     end;
     writeln(m);
end.

3)
var a: array [1..10] of integer;
    i, m: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          m := m + a[i];
     end;
     writeln(m / 10);
end.

4)
var a: array [1..10] of integer;
    i, m, c: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 0) then
          begin
               m := m + a[i];
               c := c + 1;
          end;
     end;
     if (c > 0) then writeln(m / c);
end.

Вас =)