Ви вводите число і цифру. Програма має видалити із числа усі цифри, які співпадають із тою цифрою, яку ви вводили.

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var age:=ReadInteger('Введите возраст:');
  var gender:=ReadInteger('Введите пол (1-М, 2-Ж):');
  if gender=1 then
    case age of
    0..13:Writeln('Мальчик');
    14..20:Writeln('Юноша');
    21..70:Writeln('Мужчина');
    else Writeln('Старец')
    end
  else
    case age of
    0..13:Writeln('Девочка');
    14..20:Writeln('Девушка');
    21..70:Writeln('Женщина');
    else Writeln('Старушка')
    end
end.

История Интернета берёт свои истоки в конце 50-х 20 века, когда началась гонка ракетно-ядерных вооружений между СССР и США. В это время у СССР появились межконтинентальные ракеты доставить ядерное оружие на территорию США. Этот факт послужил толчком в принятии решения американскими военными о создании надёжной системы связи и передачи информации на случай войны. Агентство ARPA отвечавшее, за внедрение в американскую армию новых технологий предложило использовать для этого компьютерную сеть, которая не выйдет из строя при разрушении любого её узла или нескольких узлов.