Подсчитать сумму премии для работников фирмы в зависимости от выручки от продаж по следующей схеме: если сумма выручки

// пример программы на языке Паскаль.

var     t, sum : real;              // объявляем переменные вещественного типа.begin    writeln (\'Введите сумму выручки в рублях:\');   // вывод строки на экран.    readln(t);                                                        // считываем значение, введенное с клавиатуры.      if (t < 25000) then sum := t / 100 * 20;         // считаем премию вариант 1.      if ((t > 25000) and (t < 40000)) then sum := t / 100 * 25;        // считаем премию вариант 2.      if (t > 40000) then sum := t / 100 * 30;                                   // считаем премию вариант 3.  writeln(\'Сумма премии для работников: \', round(sum,2));            // вывод строки на экран.end.