TAREA DE PASCAL

aca ta la tarea, pro no lo usen como guia, sino como una comparacion al final de su trabajo, aca esta con repeat..until, pero si quieren lo posteo con while..do después... salu222 --------------------------------------------------- program sfa; uses crt; var x,temp:integer; begin clrscr; x:=1; temp:=1; write('Números'); writeln(' Suma'); repeat write(x); writeln(' ',temp); delay(300); temp:=temp+x; x:=x+1; until temp50; delay(1000); end. --------------------------