Combinando estructuras de control

Elabora un programa que presente un menú con las opciones para determinar si un número entero es:
1.- Par o impar
2.- Positivo o negativo
3.- El número al cuadrado
4.- Salir del programa

El programa deberá repetirse o ejecutarse, hasta que el usuario teclee la opción 4.

Para este programa utilicde subprogramas (procedure), Repeticion (Repeat-Until), Y llame los procedures con Case, tambien utilice un if-then-else y por ultimo la funcion para calcular el cuadrado de un numero que es sqr(numero) esta funcion indica que quiero saber el cuadrado de el numero que pido o que agrego por defaul.




CODIGO

program menu_5;
uses
crt;
var
opcion: integer;
num: integer;
c: integer;
procedure par;
var
y: integer;
const
a=2;
begin
writeln('Teclea un numero');
readln(num);
y:= num mod a;
if y:= 0 then
writeln('El numero es par');
else
writeln('El numero es impar');
end;
procedure cuadrado;
begin
writeln('Teclea un numero');
readln(num);
c:= sqr(num);
writeln('El cuadrado de tu numero es',c);
end;
procedure posneg;
begin
writeln('Teclea un numero');
readln(num);
if num < 0 then
writeln('El numero es negativo');
else
writeln('El numero es positivo');
end;
procedure salir;
begin
writeln('Para salir teclee 4');
end;
begin
repeat
clrscr;
writeln('Teclee el numero de la opcion que desees');
writeln;
writeln('1. Saber el cuadrado de un numero');
writeln('2. Saber si tu numero es par o impar');
writeln('3. Saber si tu numero es positivo o negativo');
writeln('4. Para salir teclea 4');
readln(opcion);

case opcion of;
1: cuadrado;
2: par;
3: posneg;
4: salir
else
writeln('ERROR!!! Esa opcion no existe');
writeln('Si ya no deseas ejecutar el programa teclea 4');
end;
readln(opcion);
until;
until
opcion:= 4;
end.

opciones del menu















MENU.EXE