program ProgramaExemploPascal;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var n1,n2:integer;
begin
  // Insert user code here
  writeln ('Soma 2 numeros');
  write ('Digite um numero : ');
  readln (n1);
  while (n1 <> 0) do
  begin
          write ('Digite um numero : ');
          readln (n2);
          writeln ('Resultado = ',n1 + n2);
          write ('Digite um numero : ');
          readln (n1);
  end;
end.