Programa de Restas

program resta ;
uses crt;
var
   a,b,c :integer;
begin
   clrscr;
   write('teclea un n£mero : ');
   readln(a);
   write('teclea otro n£mero : ');
   readln(b);
   c:=a-b;
   writeln('el resultado es : ');
   writeln(c);
   readln;
end.

Programa de Mltiplicaciòn

program multi;
uses crt;
   var
      a,b,c :integer;
begin
   clrscr;
   write('ingresa un n£mero : ');
   readln(a);
   write('ingresa otro n£mero : ');
   readln(b);
   c:=a*b;
   writeln('el resultado es :  ');
   writeln(c);
   readln;
end.

Programa de area del rectangulo

program rec;
uses crt;
   var
      l1,l2:integer;
   var
      area :integer;
begin
    clrscr;
    write('escribe la medida del lado del rectangulo :  ');
    readln(l1);
    write('escribe la otra medida  :  ');
    readln(l2);
    area:=l1*l2;
    writeln('el area es :  ', area);
    readln;
end.

Programa de area del triangulo

program tria ;
uses crt;
     var
         base,altura:real;
     var
         area :real;
begin
     clrscr;
     write('ingresa la base  :   ');
     readln(base);
     write('ingresa la altura del triangulo :  ');
     readln(altura);
     area:=base*altura/2;
     write('el area es :  ' , area:5:2 );
     readln;
end.

Programa de area del cuadrado

program cuad;
uses crt;
   var
      l1,l2:integer;
   var area:integer;
begin
   clrscr;
   write('dale valor a uno de los lados :  ');
   readln(l1);
   write('ahora a otro de los lados :  ');
   readln(l2);
   area:=l1*l2;
   writeln('el area del cuadrado es :  ',area );
   readln;
end.

Programa de Sumas

program suma;
uses crt;
    var
       a,b,c: integer;
begin
     clrscr;
     write('teclea un numero : ');
     readln(a);
     write('teclea otro numero : ');
     readln(b);
     c:=a+b;
     writeln('la suma es :  '  ,c );
  readln;
end.

Programa de Division

program divi;
uses crt;
     var
         a,b:integer;
     var
        resultado:real;
begin
     clrscr;
     write('teclea el dividendo :  ');
     readln(a);
     write('ingresa el divisor  :  ');
     readln(b);
     resultado:=a/b;
     writeln('el resultado es :  ',resultado:5:2);
     readln;
end.