Напишите пожалуйста программу на 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(dgt;=6) and (tlt;8) or (tgt;22) then v:=r-((r/10)+(r/100*20)) else
begin
if(tlt;8) or (tgt;22) then v:=r-(r/100*20);
if(dgt;=6) then v:=r-(r/10);
end;
write(v);
end.