exercício 3

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

exercício 1

program corinthians
var val1,val2:integer
begin;
readln(val1);
readln(val2);
lf(val > val2) then
writeln(val1);
Wlse
writeln(val2 > val1) then
writeln(val2);
lf(val1 mod 2)= 0 then
Write (numero par);
Else
lf(val2 mod 2)= 0 then
writeln(numero impar);
Else
Writeln(numero impar);
End.

execício 2

program exemplo;
var val, num: integer;
begin
___ val:=5;
___ num:=8;
____if (val MOD 2= 0) then
____else
_____begin
_______write (num);
_____end;
end.
"Não escrevi o valor de "val" porque (val MOD 2 != 0)