pascal potrebujem zdrojovy kod na program na vypocet mzdy

Zdravim surne potrebujem zdrojovy kod na tento program:

Mzda
Vytvorte program, ktory vypocita mesacnu mzdu pracovnika.
Zadany bude pocet odpracovanych hodin za mesiac.
Hodinova mzda bude zadana v programe ako konstanta.}

moc diky

program mzda;
const mzda=60; {mzda za hodinu}
var hodiny:Integer;
begin
writeln('zadaj pocet hodin');
readln(hodiny);
writeln('zarobil si', hodiny*mzda);
readln;
end;

myslim z takto nejak by to mohlo byt.. ak myslime to iste

takto som to potom ja vyriesil, diky za odpoved i ked uz bolo neskoro lebo som to spravil:

program mzda1;
uses crt;
const mzda=10;
var celok,praca:integer;

begin
writeln('Chces');
delay(500);
writeln('vediet');
delay(500);
writeln('aka');
delay(500);
writeln('je');
delay(500);
writeln('tvoja');
delay(500);
writeln('mesacna');
delay(500);
writeln('mzda?');
delay(500);
clrscr;
writeln('Tak zadaj pocet odpracovanych hodin za mesiac.');
readln(praca);
celok:=mzda*praca;
writeln('Tu ju mas');
writeln(celok);

readln;
end.