Exercício 4!

.Escreva um Procedimento que receba uma string ‘s’ e converta a mesma para letras 

maiúsculas. 

Procedur mai | var s:=string;

Var

Letra:char;

Begin

Letra:=‘s’

Upcase(letra);

Writeln(letra);

end.