[ Foro de Pascal ]

ejemplo de bucle en lazarus

el codigo de un bucle en lazarus.

program Project1;
var
 n1,n2:Integer;
begin
   writeln('Ingrese primer numero: ');
   readln(n1);
   writeln('Ingrese segundo numero: ');
   readln(n2);
 while (n1 <> 0) or (n2 <> 0) do
 begin
   writeln('La suma es ', n1+n2);
   writeln('Ingrese primer numero: ');
   readln(n1);
   writeln('Ingrese segundo numero: ');
   readln(n2);
 end;
 readln;
end.