Хз

твоя проблема не в программировании. учи математику, азы, примерно 4-5 й класс школы, или даже раньше

program project1;
     var
    x,z:real ;
begin
  write('x= ');  readln(x);

    if (Abs(x)>=0) and (abs(x)<1) then
       z:=1-Abs(x)
       else
    if (Abs(x)>1) and (abs(x)<2) then
       z:=1-Abs(x)
       else
         writeln('Не определено!!!');

    writeln('Результат: ', z);
end.

Я сделал

ок, отлично. только решение не соответствует задаче. первому предложению

гуглить: функции и их аргументы алгебра

блин, там же почти готовый код вот прямо на скриншоте задачи. бери и пиши. думать даже не надо. нет - всё равно расписано не так 😂

а, ну и надо вот это учесть ^

тогда твое второе условие дополнительно разложится на несколько.
условия могут быть вложенными если что (лесенкой)

if (Abs(x)>1) and (abs(x)<2) then
 if x < 0 then
  .....
 else if x = 0 then
  .....
 else
  .....
 ;

ну и тип не real! integer тут идеально подойдет

читаю статью на хабре по php. золотые слова про тестирование:

Третий будет апеллировать к тому что следование SOLID повысит тестируемость. Но гораздо больше повышает тестируемость наличие времени, денег и желания у заказчика видеть тесты на проекте. Если они будут, то путем титанического mock-а и легкого рефакторинга вы напишете тесты к чему угодно. Если вы будете поддерживать или писать типовой проект, то даже сделав всё по заветам большой четверки, без ресурсов у вас не будет времени на написание и поддержание тестов в актуальном состоянии. Не надо смотреть на открытые проекты — они не ограничены по времени. Не надо смотреть на большие компании — они не ограничены по ресурсам.

вот это еще хорошо:

Программирование — это в первую очередь процесс формализации требований, вы же пытаетесь формализовать сам процесс формализации, без всякой оглядки на какие-либо ограничения.

обе цитаты собрали заметное число лайков в комментах

вообще, статья про коммьюнити. статья жалуется на php шное. в коментах жалуются на другие:

В Ruby сообществе последнее время еще модно пилить все на микросервисы, переписывать все на монады, сервис-объекты, 12factorapp и т.д. Архитектура ради архитектуры, программирование ради программирования.

Очень похожую проблему наблюдаю в NodeJS сообществе. Огромный плюс ноды, по моему мнение, в возможности писать как сложный код с применением кучи патернов так и супер простой минимальный код без единого класс на 3-4 функции. Тем не менее разработчики упорно тащат непонятно кому нужные паттерны и псевдо best practices из-за чего одна функция разрастается на добрый десяток классов.

Да, PHP сообщество токсичное. И это факт. И не важно из-за чего эта токсичность — из-за профдеформации или профнепригодности, но она 

существует.
И это справедливо не только для рунет сообщества, но и для англоязычной его части.
Кстати в англоязычном сообществе токсичность в разы выше — фанатики и сектанты закидают любого не согласного с религией данной секты. Даже если это объективные граничные условия или исключения из данной догмы. Сектанты они такие — догма должна быть только одна и строго по заповедям, без разночтений и иносказаний, а все остальное ересь!

часто вот жалуются мол делфи коммьюнити плохое. так это вы еще других не видели 😂😂😂

в делфе насчет сектантства примерно тоже самое )
стоило мне заикнуться на скруле, что я настройки пользователей сохраняю на сервере в реестре, как тут же налетела стая свидетелей правильного сохранения настроек в файлах и базе 😂😂😂

сервера меняют иногда, и они иногда падают.

а вот база бекапится, и всегда можно настройки юзеров не потерять.

а ничего, что, например, инишки обычно не бакапятся? ) а предлагали инишки как вариант

ах да, в данный момент базу перенёс с винды на убунту, и юзеры не заметили перехода. а на убунте нема реестра.

так не вопрос. там где нет реестра - там инишки 😂