Решить задачу по информатике на Delphi 7

Решить задачу по информатике на Delphi 7
Известно начальные и конечные показатели потребленного электричества. Стоимость 1кВт. эл. составляет 0,02802 грн, если объем потребленного не превышал 150 кВт. Для более нормальных расходов тарифное состояние 0,3648 грн. Найти колчество потребленного электричества за и вне нормы, сумму к плате.

  • Dephi нет под руками, но вообще ничего сложного нет, кинуть на форму два Edit , один Button, четыре Label. В обработчик Button вписать примерно такой код:
    var
    A, B, K, S : Integer;
    N1, N2 : Real;
    begin
    N1 := 0,2802
    N2 := 0,3648
    try
    A := StrToInt(Edit1.Text);
    B := StrToInt(Edi2.Text);
    S := B - A;
    if ( B > A ) then
    begin
    if ( S > K )
    Label4.Caption := FloatToStr(S*N1)
    else
    Label4.Caption := FloatStr(K*N1+((S-K)*N2));
    and
    else
    begin
    if ( B = A ) then
    Label4. Caption := '0'
    else
    Label4.Caption := 'нельзя определить';
    end;
    finally
    showmessage('Вы ввели неверные значения показаний счетчика');
    end;