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

program e_power;

const c1=2; c2=2.5;

var s, w:real;

begin

write ('Введите расход электроэнергии в кВт*ч: ');

Readln (w);

if w < = 100 then

writeln ('Стоимость электроэнергии: ', w, ' * ', c1, ' = ', w * c1, ' р.')

else

begin

write ('Стоимость электроэнергии: ', 100, ' * ', c1, ' + ', (w - 100), ' * ', c2);

writeln (' = ', 100 * c1 + (w - 100) * c2, ' р.')

end

end.