Crie um programa que receberá o nome da pessoa e a mudança que estuda

{Faça um progama que receba o nome da pessoa e o turno que ela estuda. Se a pessoa estuda no turno manhã deverá mostrar

o nome e o turno por extenso, os demais turnos deverão seguir a mesma idéia. Obswervação a entrada deverá ser M, V, N.}

Program ex1;

Var

Nome, turno:string;

Begin

Writeln ('digite o nome');

Readln (nome);

Writeln ('qual o turno');

Readln (turno);

If (turno='M')or(turno='m')then

Begin

Writeln ('o nome é', nome);

Writeln ('o turno é manhã');

End

Else

If (turno='N')or(turno='n')then

Begin

writeln ('o nome é', nome);

Writeln ('o turno é noite');

End

Else

If (turno='V')or(turno='v')then

Begin

Writeln ('o nome é', nome);

Writeln ('o turno é vespertino');

End

Else

If (turno<>'V')and(turno<>'v')and(turno<>'M')and(turno<>'m')and(turno<>'N')and(turno<>'n')then

Begin

Writeln('turno invalido');

End;

End.