Что такое почва? Какие почвы распространены: а) на территории России; б) в районе вашей школы? Какими особенностями они обладают?

Var
  M1, M2, M3 :set of 0..9;
  i:integer;
begin
  M1 := [1, 2, 3];
  M2 := [1, 4, 2, 5];
  M3 := M1 * M2;
  write('Результат: ');
  for i:=0 to 9 do
    if i in M3 then write(i)
    else write('*');
  writeln
end.

Тестовое решение:

Результат: *12