PEssoal começei a programar a pouco tempo e estou com grandes duvids aqui num programa, agradeço a ajuda!
Program Pzim ;var i,p:integer;BeginWriteln('Bem-vindo ao programa do adivinho, onde será necessario 2 pessoas para jogar');Writeln('Passo a explicar como funciona, o jogo é constituido por 2 pessoas, o 1º jogador introduz 1 numero, enquanto o 2º jogador tenta acertar');Writeln('1º Jogador por favor coloque um numero entre 0-10');readln(p);while p > 10 OR p < 0 doBeginwriteln('Por favor coloque um valor entre 0 e 10);readln(p);end;ClrScr;Writeln(' 2 jogador por favor tente adivinhar o numero');readln(i);If (i>p) thenwriteln('o numero introduzir é maior do que o numero tentado adivinhar');else if (i<p) thenwriteln ('o numero introduzir é menor do que o numero tentado adivinhar');elsewriteln('Parabens acertou!');breakend ifWriteln('atenção segunda tentativa');If (i>p) thenwriteln('o numero introduzir é maior do que o numero tentado adivinhar');else if (i<p) thenwriteln ('o numero introduzir é menor do que o numero tentado adivinhar');elsewriteln('Parabens acertou!');breakend ifWriteln('Ultima tentativa');If (i>p) thenwriteln('o numero introduzir é maior do que o numero tentado adivinhar');Writeln('o numero era o' +p);else if (i<p) thenwriteln ('o numero introduzir é menor do que o numero tentado adivinhar');Writeln('o numero era o' +p);elsewriteln('Parabens acertou!');breakend ifEnd.