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

Это C++?

это Паскаль

Скорее всего, можно намного короче, но все же она работает, хех))var t,dt,s,d:byte;var v,r:real;beginwrite('Время: ');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)) elsebeginif(t<8) or (t>22) then v:=r-(r/100*20);if(d>=6) then v:=r-(r/10);end;write(v);end.