Programa de promedio

[Casimiro Noteví]

Empezado por alenbebote

ok pero no entiendo como poner este codigo debo de hacer una variable cd:double;
me podrias ayudar en un ejemplo de mi ejercicio, es mi examen final y no eh podido con
este programa mil gracias

¿Examen final?, una simple suma y división

Pues entonces, me temo que tu resultado será menor de 7, según tu ejemplo:

Código Delphi [-]
if x < 7 then
  memo1.lines.add ('Reprobaste ¡Lo Sentimos!')
else
  memo1.lines.add ('Aprobaste ¡Felicidades!');