помогите безотлагательно написать программку в паскале.номер 7.даю 50 баллов

Задание составлено с оплошностями. Т.е. логически понятно, что неточное оно.

Ну не может быть, что хоть 1 кВт израсходовал, хоть 100, все одинаково 2 руб оплата. Это очевидно стоимость за каждый кВт.

// PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

// Внимание! Если программка не работает, обновите версию!

1) точно по заданию

begin

 var k := ReadInteger('k=');

 Writeln('К оплате, руб: ', 2.0 + (k gt; 100 ? (k - 100) * 2.5 : 0.0))

end.

2) по логике так обязано быть

begin

 var k := ReadInteger('k=');

 if k lt;= 100 then Writeln('К оплате, руб: ', 2.0 * k)

 else Writeln('К оплате, руб: ', 200.0 + (k - 100) * 2.5)

end.