program MyIntegerDemo;
uses Forms;

var
 Pay: Integer;
 OverTimePay: Integer;
 TotalPay: Integer;

begin
 Pay := 500;
 OverTimePay := 100;
 TotalPay := Pay + OverTimePay;
 Writeln('Naleno wynosi : ', TotalPay);

Readln; { czekamy na nacinicie klawisza ENTER }
end.