Ejercicio 2(inicio)

PROGRAM gastos(input,output);

(*Desarrolle un programa que pida nombre,edad y gastos de cañas,transporte durante una semana,saque esos datos por pantalla y haga la suma*)

VAR
nombre:string(15);
edad:integer;
gastos:real;
transporte:real;
total:real;

BEGIN
write('Nombre:');
readln(nombre);
write('Edad:');
readln(edad);
write('Gasto en cañas en una semana:');
readln(gastos);
write('Gasto en transporte en una semana:');
readln(transporte);
total:=gastos+transporte;
write('Sr/Sra. ',nombre,' de ',edad:2,' ha gastado ',gastos:3:2,' en cañas y ',transporte:3:2,' en trasporte, y el total de sus gastos es de: ',total:3:2,' Gracias por utilizar la aplicación. ');

END.

Anterior                                                                                                                                       Siguiente