Pascal/Turbo Pascal - programas en turbo pascal

hola soy josmar y necesito ayuda con turbo pascal nesecito elaborar 4 programas el primero que calcule el area de un triangulo el segundo que calcule el area de un cuadrado el tercero que calcule el area de un rectangulo y el cuarto que calcule el area de una circunferencia espero que me puedan ayudar gracias.

calcular el factorial de un numero entero

Dame tu correo para enviarte los programas
ya los tengo echos
solo debes cambiar las variables y la formulas

triangulo: base * altura /2

cuadrado: lado * lado o lado al cuadrado

rectangulo: base * altura

Área del círculo = 3'14 * radio al cuadrado o radio * radio

^

Program Área Círculo y triangulo;
Uses Crt;
Const
pi = 3.1415927; {declaración de constante}
Var
1:area: real; {área del círculo}
r: Integer; {radio a teclear}
2:base, altura: real;
1,2,resul: real;
operando: Integer;
espera: Integer;
Begin
Clrscr;
Write ('r: ');
ReadLn(r);
area := pi * r * r;
WriteLn('Area: ', area);
BEGIN
base:=9;
altura:=3;
area:=(base * altura) / 2;
ClrScr;

Writeln(‘Que operaciones desea realizar? ‘);
WRITE ('AREA DEL TRIANGULO: '); WRITE (area:9:3);
{:9:3 sirve para dar el formato de salida al número, 9 posiciones y 2 decimales}
Writeln(‘1= area del circulo');
Writeln(‘2= base, altura’);
Readln(operando);
Case operando of
1:
Begin
Resul:= pi * r * r
Writeln(‘total:’ , resul: 3.1416*r*r);
Readln(espera);
End;
2:
Begin
Resul:= (base * altura) / 2;
Writeln(‘total:’ , resul:(9:3)/2);

Readln (espera);

END;
Else
Writeln(‘el numero no estaba en el rango indicado’);
Readln(espra);
End;
End.

que le falta para tener el menu completo
gracias

nesesito los diagramas hechos para pasarlos ala compu para que el programa funciones xfavor sii me puedes ayuadar nesesito el de encontrar el are de un triangulo,cuadrado,circulo,rectangulo

pasamelo porfa me urge