Для того чтобы компьютеры поддерживали актуальное время они могут обращаться к серверам точного времени sntp. к сожалению компьютер не может получить время у сервера потому что информация по сети передаётся не мнгновенно

А что на нужно ответить?

Program price;

var
pencil_count,pencil_cost,notebook_count,notebook_cost,pencil_price,notebook_price,total_price:real;

begin
write('Введите количество карандашей: ');
readln(pencil_count);
write('Введите цену одного карандаша: ');
readln(pencil_cost);
write('Введите количество тетрадей: ');
readln(notebook_count);
write('Введите цену одной тетради: ');
readln(notebook_cost);

pencil_price := pencil_count * pencil_cost;
writeln('Стоимость всех карандашей: ', pencil_price);

notebook_price := notebook_count * notebook_cost;
writeln('Стоимость всех тетрадей: ', notebook_price);

total_price := pencil_price + notebook_price;
writeln('Общая стоимость всей покупки: ', total_price);

end.

Using System;
using System.Collections.Generic;

class Program
{
    static void Main()
    {
        var l = new List<double>();
        var r = new Random();
        var n = r.Next(10, 50);
        for (var i = 0; i < n; i++)
        {
            l.Add(r.NextDouble() * 2);
        }
        Console.WriteLine(CountRelation(l));
        Console.ReadKey();
    }

    static double CountRelation(IEnumerable<double> a)
    {
        var r = 0.0;
        var s = 0.0;
        foreach (var item in a)
        {
            if (item <= 1)
                r += item;
            else s += item;
        }

        return (1 + r) / (1 + s);
    }
}