en primer lugar ponemos la condición , en este cado pretendemos saber si el sujeto es mayor de edad , para ello , tras poner todos los datos que ponemos en todos los ejercicios ponemos la condición
if L>=18 then (L es la variable que hemos declarado previamente )
entonces si el sujeto nos pone 18 quiere decir que se cumple la condición , por tanto mediante writeln ('eres mayor de edad ') nos indicará nuestra mayoría de edad
y tras esta indicación cerramos la condición con end .
si no se cumple la condición comenzamos de nuevo con else y posteriormente begin y lo que supone el no cumplir la condición previa , en este caso
writeln ('eres menor de edad ') para que salga en un color determinado , antes de el writeln ponemos textcolor (color que queramos) y tras lo que ha supuesto en lo cumplir la condición cerramos esta sección con end y posteriormente ponemos un end final para finalizar todo el programa .
y también son variables x , y que son reales .
posteriormente pedimos los 5 componentes del vector .
para declarar la variable escribimos readln (vector [1]) , dentro de los corchetes el número de vector que hayamos pedido .
tras pedir los 5 componentes realizamos la suma de este modo : ni :=vector [1]+vector [2]+vector[3]+vector[4]+vector[5]
y para realizar la media utilizamos ni que ya lo hemos calculado previamente de este modo : ni/2;
de este modo tenemos la suma de los 5 componentes y la media de esto