Fracciones definitivo

Proceso Fracciones
Escribir "Ingrese valor 1:";
Leer a;
Escribir "Ingrese valor 2:";
Leer b;
Escribir "Ingrese valor 3:";
Leer c;
Escribir "Ingrese valor 4:";
Leer d;
e<-((a/b)+(c/d));
f<- trunc(e);
Escribir "10/8:", f; Escribir "2/8:", e
FinProceso