program MyRealDemo;
uses Forms;

const

 TaxRate = 0.20;

var
 Pay: Single;
 OverTimePay: Single;
 GrossPay: Single;
 NetPay: Single;

begin
 Pay := 500.55;
 OverTimePay := 100.10;
 GrossPay := Pay + OverTimePay;
 NetPay := GrossPay - (GrossPay * TaxRate);

 Writeln('Kwota brutto wynosi : ', GrossPay);
 Writeln('Kwota netto wynosi : ', NetPay);

 Readln; { czekamy na nacinicie klawisza ENTER }
end.