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

Var a: integer; begin write('введите время='); readln(a); if a=0 then begin write('ночь'); end; if a=1 then begin write('ночь'); end; if a=2 then begin write('ночь'); end; if a=3 then begin write('ночь'); end; if a=4 then begin write('ночь'); end; if a=5 then begin write('утро'); end; if a=6 then begin write('утро'); end; if a=7 then begin write('утро'); end; if a=8 then begin write('утро'); end; if a=9 then begin write('утро'); end; if a=10 then begin write('утро'); end; if a=11 then begin write('день'); end; if a=12 then begin write('день'); end; if a=13 then begin write('день'); end; if a=14 then begin write('день'); end; if a=15 then begin write('день'); end; if a=16 then begin write('день'); end; if a=17 then begin write('вечер'); end; if a=18 then begin write('вечер'); end; if a=19 then begin write('вечер'); end; if a=20 then begin write('вечер'); end; if a=21 then begin write('вечер'); end; if a=22 then begin write('ночь'); end; if a=23 then begin write('ночь'); end; if a=24 then begin write('ночь'); end; end.

Задача на математику, вообще :)

Скорость заполнения найдём для начала:
А - 1 ГБ/мес
В - 1/2 ГБ/мес
С - 1/3 ГБ/мес
D - 1/6 ГБ/мес

Для удобство вычисления все дроби приведем к одному общему знаменателю:
А - 6/6 ГБ/мес
B - 3/6 ГБ/мес
С - 2/6 ГБ/мес
D - 1/6 ГБ/мес
Легко складываем и получаем 6+3+2+1/6 ГБ/мес = 12/6 ГБ/мес = 2 ГБ/мес.

Так как у нас и время равно одному месяцу, 2 * 1 = 2 ГБ.

мда поколение егэ

Using System;
namespace ConsoleApplication28 {
    class Program {
    static void Main() {
    Console.Write("Введите a: ");
    int a = Convert.ToInt32(Console.ReadLine());
    Console.Write("Введите b: ");
    int b = Convert.ToInt32(Console.ReadLine());
double z1 = (Math.Sin(a) + Math.Cos(2 * b - a)) / (Math.Cos(a) - Math.Sin(2 * b - a));
    double z2 = (1 + Math.Sin(2) * b) / (Math.Cos(2) * b);
    Console.WriteLine("z1 = " + z1);
    Console.WriteLine("z2 = " + z2);
    Console.ReadKey();
}}}

На камнях рисовали и передовали знания