Atividade numero 2

program exemplo;
var val,num:integer;
begin
val:=5;
num:8;
if(5 MOD 2=0){5mod2não vai ser = a 0 e sim 1}
begin
write(val);{como5mod 2 não e 0 então não vai receber esse comondo}
end;
else
begim{ira receber este comondo}
write(8);
end.
{ira mostrar na tela o numero 8}

Atividade numero 1

program exemplo;
var V1,V2 par:integer;
begin
read(v1,v2);
if(v1,v2);then;
write (v1);
Else
if(v2>v1)then;
write (v2)
if(v1mod 2=0)then;
write("0 valor 1 é par")
else
write ("impar")
end

O Blu-Ray foi criado par tentar acabar com a pirataria , mas não deu certo.
O preço de um gravador de BLU-RAY hoje e muito caro,quando foi lançado um gravaddor custa em media 2 mil reais hoje deve tar custando em media de 800 a 1000 reais.

Saiba mais sobre o BLU-RAY.