Помогите решить задачу!

[Anuta]

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

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

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

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

[master_root]

program Acter;

{$Console Application}

uses
	SysUtils;

type
	TActer=class(TObject)
	private
		Name: string;//имя актёра
		NumOfRules: integer;//количество сыгранных ролей
		MidPriceForRole: Double;//средний заработок за роль
	public
		procedure Forming(name: string = 'none'; NumOfRules: integer = 0; MidPriceForRole: Double = 0.00);//формирование
		function GetEarnings: Double;//Сколько актёр получил за все сыгранные роли
	end;
	
procedure TActer.Forming(_name: string = 'none'; _numofrules: integer = 0; _midpriceforrole: Double = 0.00);
begin
	Name:=_name;//формирование имени
	NumOfRules:=_numofrules;//формирование количества сыгранных ролей
	MidPriceForRole:=_midpriceforrole;//формирование средний заработок за роль
end;

function TActer.GetEarnings: Double;
begin
	result:=NumOfRules*MidPriceForRole;//вывод суммарного ганарара актёра
end;

var
	NewActer: TActer;//объявляем класс
begin
	NewActer:=TActer.Create;
	NewActer.Forming('Brad Pitt', 50, 1000);
	writeln(NewActer.GetEarnings:6:2);
	readln;
end;

В программе реализуется класс TActer, который и сполняет логику, описанную вами. Надеюсь пригодится и я написал не совсем поздно. Удачи!

[Anuta]

master_root огромное вам спасибо!!!