Program Pay_calc;
uses wincrt;
Var
   sname:string;
   h_wrkd:real;
   pay_rate:real;
   tot_pay:real;

begin
{Capture data}
     {1}Write('Please enter your surname ');
     {2}Readln(sname);
     {3}Write('Please enter hours worked ');
     {4}Readln(h_wrkd);
     {5}Write('Please enter your pay rate £');
     {6}Readln(pay_rate);
{Process pay}
     {7}tot_pay := h_wrkd * pay_rate;
{Display results}
     {8+9+10}Write('Your Surname is ',sname);
     Writeln(' You have worked a total of ',h_wrkd:2:2,' hours. And have earned £',tot_pay:2:2);
{Pause and close}
     {11}Readln;
     {12}donewincrt;
end.