Exercicio 3

Progran Exemplo;
Var Val ,Num: Interger;
Begin
Val : = 5;
Num : = 8;
lf(Val > =1 E Val< =8)Then
Begin
Write(Val);
Else
Begin
Write(Num);
End