Pascal/Turbo Pascal - consulta

HOLA:
Me pueden dar una idea para resolver este ejercicio

en un hotel se hace un descuento del 10% si el cliente se hospeda más de 5 días, del 15% si el cliente se hospeda más de 10 días y del 20% si se hospeda más de 15 días. Elaborar un programa que lea el número de días y el precio diario de la habitación e imprima el subtotal a pagar (es decir el monto sin descuento), el descuento y el total a pagar.

Te doy una idea:

Primero lees los días y el precio.
... ... ...
... ... ...
case dias of
5..9 : Descuento(precio,10);
10..14 : Descuento(precio,15);
15..32767 : Descuento(precio,20);
end;
... ... ...
... ... ...

Te queda a tí implementar el procedure que hace el descuento (precio debe ser pasado por referencia).

Saludos!

hola, podrias hacerlo asi

function total(precio_diario,tot:real ;descue:integer):real {esta funcion devuelve el total}

begin
subtotal:=((descue*tot) / 100)-tot;
end;

var
tot:real;

begin

leer precio diario
leer dias

sub:=dias*precio

if (dias > 5)then
tot:=subtotal(precio_diario,tot,10)
else
if(dias > 10)then
tot:=subtotal(precio_diario,tot,15)
else
if(dias > 20)then
tot:=subtotal(precio_diario,tot,20)
writeln(tot);
writeln(sub);
writeln(sub-tot);
end;

saludos