Ola galera,estou tendo uns problemas no pascal,alguém pode me ajudar? Escreva um algoritmo que leia números inteiros do teclado. A leitura de valores deve parar assim que o usuário digitar 3 números em seqüência (por ex. 3, 4, 5). esse é o primeiro problema... como farei isso?? eu consegui fazer o começo: program exer12; uses wincrt; var cont: integer; begin cont:=0; write('Digite: '); read(cont); cont:=cont+1; end. eheheh eu sei que esse é o basico,mas eu realmente estou sem ideias para fazer. Ler 2 valores, calcular e escrever a soma dos inteiros existentes entre os 2 valores lidos (incluindo os valores lidos na soma). O algoritmo deve prever qualquer relação entre os 2 valores (2 valores iguais, o primeiro maior que o segundo, o segundo maior que o primeiro). O programa deve permitir que o usuário possa executá-lo novamente. bom o exercicio anterior foi parecido program exer5; uses wincrt; var cont : string[1]; v1,v2 : real; soma_int : integer; v1_int,v2_int : integer; begin cont:= 's'; while(cont = 's') do begin clrscr; soma_int:= 0 ; write('Digite o primeiro valor: '); readln(v1); write('Digite o segundo valor: '); readln(v2); if (v2 < v1) then writeln('Erro! O valor um deve ser menor que o valor dois!') else begin v1_int:= trunc(v1); v2_int:= trunc(v2); if (v1 = v2) then writeln('A soma é: ',v1_int+v2_int) else begin while (v1_int <= v2_int) do begin; soma_int:= v1_int + soma_int; v1_int:= v1_int + 1; end; writeln('A soma é: ',soma_int); end; end; writeln('Deseja executar novamente (s/n)?'); cont:= readkey; end; donewincrt; end. desculpe a má edentação. eu tentei fazer de varios jeitos,mas não consegui.eu ate postaria o que eu tentei fazer,mas o pascal deu problema e eu perdi o trabalho todo,apenas sobrou isso.