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

В Паскале есть функция Round, которая использует следующий "стандартный" алгоритм округления:
Если число положительное, то при величине его дробной части меньше 0.5, она просто отбрасывается, если больше - отбрасывается и к числу прибавляется единица. Если число отрицательное, то при абсолютной величине его дробной части меньше 0.5, она просто отбрасывается, если больше - из числа вычитается единица.
А функция Trunc возвращает целую часть числа.

var
  p:real;
begin
  Write('Введите число: '); Read(p);
  Writeln('Округленное значение: ',Round(p),', целая часть: ',Trunc(p))
end.

Тестовое решение:
Введите число: -12.74
Округленное значение: -13, целая часть: -12

Введите число: 12.93
Округленное значение: 13, целая часть: 12

Введите число: 9.4323
Округленное значение: 9, целая часть: 9

Объяснение:

фішинг (англ. phishing від fishing «рибний лов, вивужування»[1]) — вид інтернет-шахрайства, метою якого є отримання доступу до конфіденційних даних користувачів — логінів та паролів. Це досягається шляхом проведення масових розсилок електронних листів від імені популярних брендів, а також особистих повідомлень усередині різних сервісів, наприклад від імені банків або всередині соціальних мереж. У листі часто міститься пряме посилання на сайт, що зовні не відрізняється від сьогодення, або на сайт з редиректом. Після того як користувач потрапляє на підроблену сторінку, шахраї намагаються різними психологічними прийомами спонукати користувача ввести на підробленій сторінці свої логін та пароль, які він використовує для доступу до певного сайту, що дозволяє шахраям отримати доступ до акаунтів та банківських рахунків.

Спам (англ. spam) - масове розсилання кореспонденції рекламного характеру особам, які не висловлювали бажання її отримати. Розповсюджувачів спаму називають спамерами.

У загальноприйнятому значенні термін «спам» російською вперше став вживатися стосовно розсилки електронних листів. Не за і повідомлення в системах миттєвого обміну повідомленнями (наприклад, ICQ) звуться SPIM (англ.)рус. (Англ. Spam over IM).

Примечание:

True - залежались

False - незалежались

sckid - указывать скидку в 10 (по умолчание 0.5)

Код:

skid = 0.5 #Скидка 50% пол цены

item = {

  "Молоко": [200.0, True],

  "Хлеб": [25.0, False],

  "Рыба": [225.0, True],

  "Колбаса": [140.0, False],

  "Яблоко": [40.0, True]

  }

def price_print():

  ls = list(item)

  ls2 = list(item.values())

  for x in range(len(ls)):

      print('Товар: ' + str(ls[x]), str(ls2[x][0]) + 'р')

  print('\n')

def price_auto():

  ls = list(item)

  ls2 = list(item.values())

  for x in range(len(ls)):

      if ls2[x][1] == True:

          ls2[x][0] *= skid

price_auto()

price_print()