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

exercio2
progran murilo;
var val, num: Integer;
Begin
Val : =5;
Num: =8;
lf(5 MOD 2 = 0) Then
(5 MOD 2 = 1 entao nao vai ser igual a 0);
Begin
Writeln(5);
(ao vai ser esse o valor certo);
Else
Begin
Write(8);
End.
Entao o resultado certo sera o (8);

exercio 1

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

O modelo N73 é o novo celulare da Nokia, ele roda software para a série 60 (Symbian) e possuem display de 2.4" QVGA com 262 mil cores, Bluetooth 2.0, entrada para cartões de memória miniSD, players de mídia MP3/ACC, rádio e câmera digital de 3.2 megapixel com lente Carl Zeiss.