Напишите пожалуйста программу на c++, в крайнем на паскале

Скорее всего, можно намного короче, но все же она работает, хех)) var t,dt,s,d:byte; var v,r:real; begin write('Время: '); readln(t); write('Длительность: '); readln(dt); write('Стоимость минуты: '); readln(s); write('День: '); readln(d); r:=s*dt; if(d>=6) and (t<8) or (t>22) then v:=r-((r/10)+(r/100*20)) else begin if(t<8) or (t>22) then v:=r-(r/100*20); if(d>=6) then v:=r-(r/10); end; write(v); end.