program EXEMPLO_WHILE_DO1;

Var A,B,R,I: integer;

begin
	while (I <=5) do
begin
  write('Escreva o valor de A: ');
  read(a);
  write('Escreva o valor de B: ');
  read(b);
 writeln;
 R:=A+B;
  writeln(''O resultado corresponde a: ',R);
  writeln;
  I:=I+1;
end;
end.