Exercício 11 Repeat - Pascal

11) Construa um algoritmo que leia um número e indique se ele é par ou impar. O programa só deve
levar em consideração valores positivos.

Program repeat11;
uses crt;
var
 num:integer;
Begin
    Write('Informe Valor: ');
    readln(num);
        repeat    
            if (num>0) then
                Begin
                    if (num mod 2=0) then
                        Writeln(num,' Valor Par')                    
                    else Writeln(num,' Valor Impar');    
                End
            else Writeln(num,' Valor Negativo');
            Writeln('sair digite 999');
            Write('Informe Valor: ');
            readln(num);    
        until(num=999);
End.

Categories: Pascal , Programação