Criação de programas por tarefa

1. Faça um programa que leia dois números e mostre na tela o maior deles.

Program _maior ;

var

num1: integer ;

num2: integer ;

Begin

write ('Digite o primeiro numero');

read (num1);

Write ('Digite o segundo numero');

read (num2);

if (num1 > num2) then

write ('O primeiro numero é o maior')

else

write ('O segundo numero é o maior');

End.

2.Faça um programa que leia um número e mostre na tela se o valor é positivo ou negativo.

Program positivo_negativo ;

var

num: real;

Begin

write ('Digite um numero') ;

read (num);

if (num >= 0) then

write ('O numero digitado é positivo')

else

write ('O numero digitado é negativo');

End.

3.Faça um programa que leia uma letra e verifique se a letra digitada é "F" ou "M". Escrever:F-Feminino,M-Masculino,SexoInválido.

Program masculino_feminino ;

var

sexo: string;

Begin

Write ('Digite a letra do sexo');

read (sexo);

if (sexo = 'M') then

Write ('SEXO MASCULINO')

else

IF (sexo = 'F') then

write ('SEXO FEMININO')

else

write ('Sexo invalido') ;

End.

4.Faça um programa que leia uma letra e verifique se a letra digitada é vogal ou consoante.

Program vogal_consoante ;

var