//Verifica se é Feminino ou Masculuni. Função If Else End,
program exemploIF;
uses crt;
var sexo : char;
begin
write('Digitar o sexo: ');
readln(sexo);
sexo := upcase(sexo);
if(sexo = 'F') then
begin
writeln('Feminino');
writeln('Menininha');
end
else
begin
writeln('Masculino');
writeln('Macho');
end;
readkey;
end.
Nenhum comentário:
Postar um comentário