Помогите с решением задачи!

[Anuta]

Привет, программисты!
Сложилась неприятная ситуация в универе, препод сказала, что если я хочу получить 5 по информатике, то должна дома решить задачу по Делфи.
В программировании я ни капельки не разбираюсь.. а пятерку иметь ой как хочется.. Я думаю тут мне смогут помочь, с решением задачи!
Вот текст задачи:

Объект: Актер фильма. Имя актера, количество сыгранных ролей, средний заработок за роль. Методы: Формирование, Сколько получил актер за все сыгранные роли.

Единственное что знаю, нужно это писать в Console Application. Нужно писать имя, количество ролей, заработок, а потом вывести гонорар актера за все сыгранные роли. Это всё что я поняла, но я не знаю как это описать на языке программирования.
Помогите мне пожалуйста!!!

P.S. извините если ошиблась разделом.. я тут впервые, а сдавать программу нужно уже утром..

[mutabor]

Я бы на твоем месте не парился, первый же вопрос по программе с ее стороны и твоя пятерка помашет тебе ручкой.

В раздел Студенты надо было, а исходя из формулировки задачи даже не в студенты, а в Фриланс, тогда утром у тебя будет программа, но за денежку.

А вообще программа простая, такую даром держи, удачи в убеждении препода что ты сама ее написала )

Текст программы (надписи на английском, так как русская дос кодировка не совпадает с кодировкой в windows)

program movies;
{$APPTYPE CONSOLE}
uses SysUtils;

var
  name: string;
  parts: integer;
  average_fee: integer;
  all_fee: integer;

begin
  writeln('Print name of actor');
  readln(name);
  writeln;
  writeln('Print played parts count');
  readln(parts);
  writeln;
  writeln('Print average fee for one part ($ mln)');
  readln(average_fee);
  writeln;
  all_fee := parts * average_fee;
  writeln(name + ' has been earned ' + inttostr(all_fee) +
    '$ mln for ' + inttostr(parts) + ' parts');
  writeln;
  writeln('Press any key for exit');
  readln;
end.

Исходники

[Ring0Sn]

mutabor, за такой подход к решению как махимум троечку поставят)
читайте внимательнее что требовалось от задачи

Сообщение от Anuta

Объект: Актер фильма. Имя актера, количество сыгранных ролей, средний заработок за роль. Методы: Формирование, Сколько получил актер за все сыгранные роли.

[mutabor]

Не обратил внимания, даже как-то неожиданно после такого предисловия задача на объекты.
Тогда ее тем более завалят, учитывая это

В программировании я ни капельки не разбираюсь..

p.s. Ей в разделе "Студенты" сделали объектами.

[Anuta]

сдала программу, благоадря master_root'у
получила свою 5. и незачем считать, что девушки не способны разобрать в том, чего не знают.