Delphi, условия. Помогите разобраться с задачей.

[Zakolochka]

Нужно написать программу но с delphi не особо дружу, помогите пожалуйста.
Тарифная ставка и количество часов должно вводится самим пользователем.
При работе в ночное время насчитывается доплата, если количество часов, отработанных в ночное время, меньше или равно 2, то сумма доплат составляет 50% тарифной ставки, умноженной на количество ночных часов. Если же больше 2-х часов, то сумма доплат составляет тарифной ставке, умноженный на число, равное количеству ночных часов, минус 1. Определить размер доплаты при заданной тарифной ставке и количества часов.
Никак не могу разобраться с условиями.

[newerow1989]

var ts,h,s:real;
begin
   Write('Tarif = '); Readln(ts);
   Write('Hour  = '); Readln(h);
   If h<=2 then
      s:=ts*h*0.5 else
      s:=ts*(h-1);
   Writeln('Doplata = ',s:1:2);
   Readln;
end.