programas de pascal

INTRODUCCION
1- )
{Imprima un programa que muestre la frase: "Mi primer programa en Pascal”. Así como mi nombre, sexo y estado civil.}
Program numero1;
useswincrt;
beginwriteln('Mi primer programa en Pascal');
writeln('Daniel, masculino y soltero');
end.
2- )
{lea de un mismo registro la edad de una persona e imprima tanto el nombre como la edad}
program numero2;
usesWincrt;varnombre: string [15];edad: integer;
beginwriteln('digite su nombre');
readln(nombre);
writeln('digite su edad');
readln(edad);
writeln('su nombre es:',nombre);
writeln('su edad es:',edad);
end.
3- )
{lea de un mismo registro el nombre y la edad de cualquier persona e imprima el nombre si la persona es mayor de edad}
program numero3;
usesWincrt;
varnombre: string [15];
edad: integer;beginwriteln('digite su nombre');
readln(nombre);
writeln('digite su edad');
readln(edad);
if edad > 18
thenwriteln('el nombre es', nombre);
end.
4- )
{Lea el nombre y la edad de una persona e imprima el nombre si es mayor de edad o un mensaje que diga no puede votar}
program numero4;
useswincrt;
varnombre: string[15];
edad: integer;
beginwriteln('digite su nombre');readln(nombre);
writeln('digite su edad');
readln(edad);
if edad >18
thenwriteln('el nombre es:',nombre)
elsewriteln('no puede votar')
end.
5- )
{lea de un mismo registro la edad el sexo y solo si la persona es mayor de edad y masculino imprima el nombre.}
program daniel5;
useswincrt;
varnombre: string[15];
Edad: integer;
Sexo: integer;
beginwriteln('digite su nombre');
readln(nombre);writeln('digite su edad');
readln(edad);
writeln('digite su sexo M=1 F=2');
readln(sexo);
if (sexo=1)and(edad>18)
thenwriteln('su nombre es:',nombre);
end.
6- )
{Lea de un registro el nombre edad sexo estado civil e imprima solo si la persona es soltero hombre mayor de edad}
program daniel6;
useswincrt;
varnombre: string[15];
edad: integer;
sexo: integer;
estado_civil: integer;beginwriteln('digite su nombre');
readln(nombre);
writeln('digite su edad');
readln(edad);
writeln('digite su sexo M=1 F=2');
readln(sexo);
writeln('digite su estado civil 1=casado 2=soltero 3=otro');
readln(estado_civil);
if(sexo=1)and(edad>18)
thenif(estado_civil=2)
thenwriteln('su nombre es:',nombre)
end.
7-){lea de un registro el nombre la edad sexo estado civil e imprima el nombre sies hombre o mujer menor de edad y si no un mensaje que diga: usted no se manda.}
program daniel7;
useswincrt;
varnombre: string[15];
edad: integer;
sexo: integer;
estado_civil: integer;
beginwriteln('digite su nombre');
readln(nombre);
writeln('digite su edad');
readln(edad);
writeln('digite su sexo M=1 F=2');
readln(sexo);
writeln('digite su estado civil 1=casado 2=soltero3=otro');
readln(estado_civil);
if(sexo=1)or(sexo=2)and(edad>18)
thenif(sexo=1)and(edad>18)
thenif(estado_civil=2)
thenwriteln('ud no se manda solo')
elsewriteln('su nombre es:',nombre)
end.
8-)
{lea un numero e imprima el numero del valor absoluto del mismo}
program daniel8;
useswincrt;
varnumero: integer;
beginwriteln('digiten un numero');
readln(numero);
writeln('el valor absolutodel numero es:',abs(numero))
end.
9-){calcule e imprima la raíz cuadrada de un numero, si el numero es negativo imprima un mensaje que diga: tiene raíz imaginaria}
program daniel9;
useswincrt;
varnumero: integer;
beginwriteln('digite un numero');
readln(numero);
if numero<0
thenwriteln(numero,'tiene raiz imaginaria')
elsewriteln('su raiz cuadrada:',sqrt(numero))
end.
10-){lea 2números de un registro e imprima solo si son positivos}
program daniel10;
useswincrt;
varnumero1: integer;
numero2: integer;
beginwriteln('digite un primer numero');
readln(numero1);
writeln('digte un segundo numero');
readln(numero2);
if (numero1>0)and (numero2>0)
thenwriteln('el numero es :',(numero1),'y',(numero2))
elseif (numero1>0)
thenwriteln('el positivo es:',(numero1))...