cuadrados

Este programa consiste en realizar el cuadrado de cualquier número y después de esto nos preguntará si deseamos realizar otra operación..Se realiza con un bucle ,en este caso con repeat, que no debemos olvidar que tiene que acabar siempre con un 'until'(hasta).

El procedimiento a seguir es antes de comenzar declarar dos tipos de variables.Una del tipo integer ,que será el número del que calculará el cuadarado y otra del tipo char (que convierte el número en carácter ) que servirá para mas tarde responder a la pregunta de si queremos realizar otra operación.

Después del begin ponemos repeat ,que lo que hará será seguir haciendo el cuadrado de los numeros que introduzcamos hasta,y es aquí donde debemos poner el until, que nosotros pongamos una 'N' o 'n'.

Estas 'n' en nuestro caso es la variable 'y'(char) que automaticamente despues de poner una de las dos sale de la pantalla.Esto los hemos hecho del siguiente modo (y:=readkey)