Написать функцию "ЕСЛИ" для расчёта оплаты электроэнергии.За первые 100кВт клиент платит 2 руб за 1 кВт,за превышение

program e_power;const c1=2; c2=2.5;var s, w:real;beginwrite(\'Введите расход электроэнергии в кВт*ч: \');Readln(w);if w <= 100 then writeln(\'Стоимость электроэнергии: \', w, \' * \', c1, \' = \', w * c1, \' р.\')else beginwrite(\'Стоимость электроэнергии: \', 100, \' * \', c1, \' + \', (w - 100), \' * \', c2);writeln(\' = \', 100 * c1 + (w - 100)* c2, \' р.\')endend.