Programar en Pascal

[LuismanueL]

primero lo del deporte tienes que pedirlo como dato o se trata solo del deporte de Bassquet??? si fuera solo de basquet entonces la solucion seria asi:

program ejemplo;
var
deporte:char;
peso: real;
begin
if deporte='B' then {solo B ya que es variable char}
begin
if peso>=75 and peso<=100 then
writeln('GOOD')
else
writeln('BAD');
end; {if}
end;

si el deporte fuera dado como dato entonces tendrias que pedir al usuario dato escribes empezando el cuerpo del programa esto:

writeln('Ingrese el deporte a evaluar (primera letra del deporte): ');
readln(deporte);

despues de esto tendrias que validar los intervalos de aceptacion para cada deporte segun sea el caso...

bueno tomoyo123 espero que esto te haya ayudado un poco cualquier cosa pasa la voz nomas....