Programas de turbo pascal areas

program areas;
uses wincrt;
var
opcion:string;
basemayor:integer;
basemenor:integer;
altura:integer;
perimetro:integer;
apotema:integer;
radio:integer;
area:integer;
operacioncirculo:real;begin
writeln ('a.area de trapecio');
writeln ('b.area de poligono');
writeln ('c.área de circulo');
writeln ('d.salir');
writeln('seleccione una opcion');
readln (opcion);
if (opcion='a')then
begin
writeln ('seleciono: area de trapecio');
writeln ('ingrese base mayor');
readln (basemayor);
writeln ('ingrese base menor');
readln (basemenor);
writeln ('ingrese altura');
readln(altura);
area:= basemayor+basemenor*altura div 2;
writeln ('el area de el trapecio es:', area);
readln;
end;
if (opcion='b') then
begin
writeln ('seleciono: area de poligono');
writeln('ingrese el perimetro');
readln(perimetro);
writeln ('ingrese apotema');
readln(apotema);
area:=perimetro*apotema div 2;
writeln ('el area de un poligono es:',area);
readln;
end;
if (opcion='c')then
begin
writeln ('seleciono: area de circulo');
writeln ('ingrese el radio');
readln(radio);
operacioncirculo:=radio*3.1416*radio;
writeln ('el área de un circulo es:',operacioncirculo);readln;
end;
if (opcion='d') then
begin
writeln ('seleciono salir');
writeln ('ha salido del programa que tenga un exelente día');
readln;
end;

program sueldo;su
uses wincrt;
varsuledoliquido:integer;
sueldobase:integer;
sueldototal:integer;
bonificacion:integer;
IGSS:byte;
ahorro:integer;
comision:integer;
usuario:integer;
contra:integer;
begin
clrscr;
writeln('ingrese elusuario');
readln(usuario);
writeln('ingrese la contraseña');
readln(contra);
if ((usuario=12345) and (contra=333)) then
begin
writeln('ingrese el sueldo base');
readln(sueldobase);writeln('ingrese la bonificacion');
readln(bonificacion);
writeln('ingrese la comision');
readln(comision);
IGSS:= sueldobase div 4.83;
writeln('el IGSS es:',IGSS);
bonificacion:=250+0.5 div sueldobase;...