Mensajes

en la facultad me dieron un problema en el cual yo debia pedir numeros de teclado, averiguar cuantos digitos tenia, cuantos digitos pares, la suma de los digitos. ademas debo parar de pedir numeros  cuando aparezca el digito 6 y debo averiguar cual es el numero mas grande de todos.


aca hice lo que pude pero me falta la parte de pedir numeros cuando aparezca el 6 y lo de  averiguar cual es el numero mas grande de todos.
espero que puedan ayudarme a resolver estas 2 cuestiones.


Program numerouno;

Var   num:integer;
dig:integer;
par:integer;
impar:integer
pepe integer;
Contador:integer;

Begin;
Writeln('escribi un  numero')
Read(num)

Begin;
pepe:=0
contador:=0
par:=0
impar:=0

repeat
dig:=num mod 10;

if num >10 then writeln ('los digitos son:',dig)
if (num>10) and (dig mod 2=0) then par=par+1;
if num >10 then contador:=contador+1;
if num >10 then pepe:=pepe+dig;
if num >10 then num:=(num-dig) div diez;

if num<10 then writeln ('los digitos son:',num);
if (num<10) and (dig mod 2=0) then par=par+1;
if num <10 then contador:=contador+1;
if num <10 then pepe:=pepe+dig;
if num<10 then writeln ('la cantidad de digitos pares son:',par);
if num<10 then writeln ('la suma de los digitos da:',pepe);
if num<10 then writeln ('hay:' contador,'digitos');
until num<10
end.