Código Delphi
[-]var escuela, tarea, aplazo: Cardinal;
begin
aplazo := 0;
escuela := 10; tarea := 50; repeat Inc(aplazo, escuela);
Inc(escuela);
until escuela > tarea;
WriteLn(aplazo);
Código Delphi
[-] while escuela <= tarea do
begin
Inc(aplazo, escuela);
Inc(escuela);
end;
Edito; EPA, no me di cuenta que respondiste Caral, que cuentas? yo pase un ratico por acá a hacer mi homework si no "papá pega photo"