Практически все видно во вложении, тут только одно упрощение нужно делать:
(x₁∨x₂)∧x₂ = (x₁+x₂)x₂ = x₁x₂+x₂ = x₂(x₁+1) = x₂
Схема - просто проводник с сигналом х₂
Var
y, x: real;
begin
read(x);
if (x > -20) and (x < -10) then
y := x * x * x * x
else if (x > -10) and (x < -20) then
y := abs(x)
else if ((x > 0) and (x < 20)) or ((x > 30) and (x < 70)) then
y := 45
else if ((x > 80) and (x < 100)) or ((x > 110) and (x < 140)) or (x > 180) then
y := abs(x - 4)
else
y := abs(x + 2);
writeln(x, ' ', y);
end.
15 х 5 = 75(км)
Ответ: 75км проедет велосипедист за 5 часов.
Var n, sum, p: integer;
begin
sum := 0;
p := 1;
repeat
write('Введите число для завершения программы введите 0000): ');
readln(n);
if n <> 0 then begin
if n >= 0 then sum := sum + n;
if n < 0 then p := p * n;
end
else writeln('ИТОГ');
writeln( 'Сумма положительных: ', sum, ' | Произведение отрицательных: ', p);
writeln();
until n = 0000;
<span>end.
Вроде так</span>