Задача про абанента, H E L P!!

[Ya_tolko_uchus]

привет народ, помогите написать проги плизз

Задача «Абонент»

Постановка задачи

Услуги телефонной сети оплачиваются по следующему правилу: за разговоры для А минут за месяц – В руб., а разговоры сверх установленной нормы оплачиваются из расчета С руб. за минуту. Написать программу, вычисляющую плату за пользование телефоном для введенного времени разговоров за месяц.

I. Выполнение задания «Абонент» (консольное приложение)

1. Провести анализ требований поставленной задачи.
2. Описать используемые переменные и формулы для вычисления.
3. Разработать схему структурную алгоритма программы «Абонент» (консольное приложение).
4. Разработать программу и описать процесс её разработки.
5. Разработать программный код для реализации программы «Абонент» (консольное приложение).
6. Представить результаты выполнения программы на рисунках, используя свои значения переменных.

Результаты выполнения программы представлены на рисунках 9-10.


Рисунок 9 – Вид программы после запуска



Рисунок 10 – Вид программы после выполнения

II. Выполнение задания «Абонент» (интерфейсное приложение)

1. Провести анализ требований поставленной задачи.
2. Описать используемые переменные и формулы для вычисления.
3. Разработать схему структурную алгоритма программы «Абонент» (интерфейсное приложение).
4. Разработать программу и описать процесс её разработки.
5. Разработать программный код для реализации программы «Абонент» (интерфейсное приложение).
6. Представить результаты выполнения программы на рисунках, используя свои значения переменных.

Результаты выполнения программы представлены на рисунках 11-13.


Рисунок 11 – Результат выполнения программы при условии, что количество минут меньше абонентской платы за месяц


Рисунок 12 – Результат выполнения программы при условии, что количество минут равно абонентской платы за месяц


Рисунок 13 – Результат выполнения программы при условии, что количество минут больше абонентской платы за месяц

[Z1000000]

Вот так как-то:

var
 TotalMinutes : Integer;
 Summa : Integer;
begin
Summa := 0;
if TotalMinutes > A then Summa := (TotalMinutes-A)*C;
Summa := Summa + B;
end.