Desejo uma Boa Noite a meus anjinhoS!

Oie meu amores*
estou com mtas saudades dos meu amigos!
passo o dia em casa; sem fazer exatamente nda!
saudades da animação e zoação das minhas amigas piriguetes!
elas são mto legais e eu adoro mto essas gatinhaS!

A amizade é uma força permanente,

Não se compra, não se aluga,

Não se troca não se vende...

Nasce e morre com a gente.

''Algumas amizades são para sempre. Não há nada que se compare ao aconchego de uma amizade do tipo caloroso e duradouro. Uma amizade baseada em pensamentos carinhosos, em generosidade e franqueza, momentos partilhados, palavras de apoio e louvor.Uma amizade que cresce através dos risos e lágrimas, momentos bons ou maus, sempre mais forte e profunda...''

1- Faça um algoritmo que calcule e escreva se número digitado na entrada de dados
é maior ou menor que o resto da divisão deste por 5. Diga ainda se este número é par ou ímpar.

Program Destiny;
Var x,y: Integer;
Begin
Read (x)
if (x>y mod 5) then;
Write ("É maior")
Else
if (x!= y mod 5) then;
Write ("É menor")
End
If (x mod 5=0) then;
Write ("par")
else;
Write ("ímpar")
end;
End.

3) Qual será o valor exibido na tela pelo algoritmo a seguir?

program exemplo;
var val, num: integer;
begin
val:=5;
num:=8;
if (val >=1 AND val<=8) then
begin
write (val);
end;
else
begin
write (num);
end;
end.

O Resultado será 5.

2) Qual será o valor exibido na tela pelo algoritmo a seguir?

program exemplo;
var val, num: integer;
begin
val:=5;
num:=8;
if (val MOD 2= 0) then
begin
write (val);
end;
else
begin
write (num);
end;
end.

O Resultado será 8

1) Faça um algoritmo que leia 2 valores inteiros, calcule e escreva qual deles é maior, bem como escrevendo se estes valores são pares ou ímpares.

Program Luz;
var val1,val2: integer;
Begin
readln (1, 2)
if (1 < 2) then
writeln ( 1 );
if (2 > 1) then
write ln( 2 );
If (1 mod 2=0) then
writeln ('par');
else
write ('impar');

if (2 mod 2=0) then
writeln ('par');
else
write ('impar');

end.