[luisito2011]

hola.. soy yo .. otravej ando molestandolos ... ahora es con este ejercicio
LEER CUATRO NUMEROS Y DETERMINAR SI UNO DE LOS NUMEROS ES CERO SI UNO DE LOS NUMEROS ES CERO IMPRIMA CERO CASO CONTRARIO IMPRIMA NO//
bueno ami me sale.. pero con los 4 numero me salen [color=red]4 veces no o 4 veces 0
como hago para que solo me salga una vez cero si hay 0 en los 4 numeros oh no si no hay un 0 en los 4 numeros

Código Delphi [-]
var
n1,n2,n3,n4:cnumeronatural;
x:integer;
begin
  n1:=cnumeronatural.crear;
  n2:=cnumeronatural.crear;
  n3:=cnumeronatural.crear;
  n4:=cnumeronatural.crear;
  Writeln('Digite  N1');
  readln(x);
  N1.AsignarValor(x);
  Writeln('Digite  N2');
  readln(x);
  N2.AsignarValor(X);
  Writeln('Digite  N3');
  readln(x);
  N3.AsignarValor(X);
  Writeln('Digite  N4');
  readln(x);
  N4.AsignarValor(X);
  if n1.ObtenerValor>0 then begin writeln('no') end else writeln('Cero');
  if n2.ObtenerValor>0 then begin writeln('no') end else writeln('Cero');
  if n3.ObtenerValor>0 then begin writeln('no') end else writeln('Cero');
  if n4.ObtenerValor>0 then begin writeln('no') end else writeln('Cero');
  readln;

gracias