Pascal

INTRODUCCION
En este proyecto y en el transcurso del curso aprendí el cómo usar el programa Turbo Pascal el cual con este logre crear 30 programas además de ejemplos y otros que la profesora nos dio.
Esta enseñanza de usar el Turbo Pascal me ayudara si es necesario en el futuro ya que con este se pueden hacer muchas utilidades con los programas creados

Programa 1
{Mi primer programa enpascal que imprime el nombre, sexo, edad y estado civil de una persona}
Program Esteban01;
Uses
WinCrt;
Begin
Writeln('Esteban, masculino, 16, soltero');
Writeln('presione <alt-f4 > para cerrar la ventana');
end.

Programa 2

{Registro, nombre, edad de una persona}

Program Esteban02;
uses
WinCrt;
Var
nombre: string;
edad: integer;
Begin
writeln('digite su nombre');Readln(nombre);
writeln('digite su edad');
Readln(edad);
Writeln('presione <alt-f4 > para cerrar la ventana');
end.

Programa 3

{Lea de un mismo registro nombre y edad de cualquier persona e imprima solo si es la persona es mayor de edad el nombre}

program Esteban03;
uses
WinCrt;
var
nombre: string;
edad: integer;
Begin
writeln('digite su nombre');
readln(nombre);writeln('digite su edad');
readln(edad);
if
edad>=18
then
writeln(nombre,' es mayor de edad')
else
writeln(nombre, 'menor de edad')
Writeln('presione <alt-f4 > para cerrar la ventana');
end.

Programa 4
{Lea de un mismo registro nombre y la edad de cualquier persona e imprima solo si la persona es mayor de edad el nombre de la persona de lo contrario imprima un mensaje quediga: "no puede votar"}

program Esteban04;
uses
WinCrt;
var
nombre: string;
edad: integer;
begin
writeln('digite su nombre');
readln(nombre);
writeln('digite su edad');
readln(edad);
if
edad>18
then
writeln(nombre)
else
writeln(nombre, 'no puede votar');
Writeln('presione <alt-f4 > para cerrar la ventana');
end.

Programa 5

{Lea de un mismo registro el nombre laedad y el sexo de cualquier persona e imprima, solo si la persona es de sexo masculino y mayor de edad el nombre de la persona}

program Esteban05;
uses
WinCrt;
var
nombre: string;
edad: integer;
sexo: integer;
begin
writeln('digite su nombre');
readln(nombre);
writeln('digite su edad');
readln(edad);
writeln('digite 1 si su sexo es masculino o 2 si es femenino');
readln(sexo);
ifedad<18
then
writeln('menor de edad')
else
if
sexo=1
then
writeln(nombre)
else
writeln('sexo femenino');
Writeln('presione <alt-f4 > para cerrar la ventana');
end.

Programa 6
{Lea de un mismo registro el nombre, la edad, el sexo (1 o 2) y el estado civil de cualquier persona e imprima solo si la persona es un hombre soltero mayor de edad el nombre de la persona en elcampo de "estado civil" aparece grabado el número 1 en vez de "soltero" el número 2 en vez de "casado" o el número 3 en vez de "otro"}
program Esteban06;
uses
WinCrt;
var
nombre: string;
edad: integer;
sexo: integer;
estadocivil: integer;
begin
writeln('digite su nombre');
readln(nombre);
writeln('digite su edad');
readln(edad);
writeln('digite 1 si su sexo es masculino o 2 femenino');readln(sexo);
writeln('digite 1 si es soltero,2 si es casado o 3 si es otro');
readln(estadocivil);
if
edad<=18
then
else
if
sexo=1
then
else
if
estadocivil=1
then
writeln(nombre)
else
Writeln('presione <alt-f4 > para cerrar la ventana');
end.

Programa 7
{lea de un registro el nombre, edad, sexo y estado civil de una persona e imprima solo si la persona es hombre omujer menor de edad o es hombre casado de cualquier edad el nombre de la persona y un mensaje que diga usted no se manda en los demás casos imprima el nombre de la persona solamente}
program Esteban07;
uses
WinCrt;
var
nombre: string;
edad: integer;
sexo: integer;
estadocivil: integer;
begin
writeln('digite su nombre');
readln(nombre);
writeln('digite su edad');
readln(edad);...