Algoritmia - Ayuda:: algoritmo

Hola, tengo el siguiente problema no le encuentro una buena resolucion nesesito que alguien me ayude como hacer el algoritmo en lenguaje normal y no en Pseudocodigo; creo que tambien lo sacaron del joyanes

Determinar el precio de un dia de ida y vuelta en ferrocarril, conociendo la distancia al recorrer y sabiendo que si el numero de dias de estancia es superior a 7 y la distancia superior a 800 km. el boleto tiene una reducción del 30% en su precio. El costo por Km. es de $2.5 pesos.

en pseudocodigo es casi identico a pascal:

Program Ticket

var
e:integer; {estadia}
d: real; {distacia}
pt: real; {precio del ticket}

begin
writeln(´ingrese la cantidad de dias de estadia´);
readln(e);
clscr; {borra la pantalla}
writeln(´ingrese la distacia:´);
readln(d);
pt := 2.5 * d;

if (d > 800) then
pt := pt - pt * 30/100;

writeln(´el precio del ticket es de: ´,pt :8,2); {con el :8,2 le das formato al numero de tipo real}

end.

Saludos!!!