Жёсткий диск ;) А в чем смысл?
Для числа 3.
(3 > 1)=1(истина))
(3 > 2)=1(истина)
(3 = 3) = 1(истина)
1 ∧ 1 ∧ 1 = 1 * 1 * 1 = 1(истина)
<span><span>ночь - ноль - соль - сель - сень - день</span>
рота - </span>нота - нога <span>- нора - пора - пола - полк
бант - рант - рана - раса - роса - коса
бег - бог - бок - бак - мак - рак - гак - маг - шаг
море - горе - гора - кора - кома - кума </span>- пума <span>- сума - суша
миг - мир - пир - пар - бар - бас - бес - вес - век</span>
P.S программа работает для русских символов. Если нужны латинские, то поменяйте все "а","у" и "х" на соответствующие
program n1;
uses crt;
var
st:string;
i:integer;
begin
writeln('Введите строку'); readln(st);
for i:=1 to length(st) do
if (st[i]='а') and (st[i+1]='х') then st[i]:='у';
writeln(st);
<span>end.</span>