Pascal.

[pic 2][pic 3][pic 4][pic 5][pic 6]

Program   areadelcirculo;                                                            

  Uses crt;

  Var

  a,b,r:real;

  Begin

  Clrscr;

  Writeln ('ingrese el radio');

  Readln(r);

  a:=r*r;

  b:=3.1416*a;

  Writeln ('su resultado es: ',b:);

  Readkey;

  End.

Program   areadelcuadrado;                                        

  Uses crt;

  Var

  r,l:real;

  Begin

  Clrscr;

  Writeln ('ingrese el lado');

  Readln (l);

  r:=l+l;

  Writeln ('su resultado es: ',r);

  Readkey;

  End.

Program   suma2numeros;                                                    

  Uses crt;

  Var

  r,h,b:real;

  Begin

  Clrscr;

  Writeln ('ingrese la altura');

  Readln (h);

  Writeln ('ingrese la base');

  Readln (B);

  r:=b*h;

  Writeln ('el área del rectángulo es',r:2:2);

  Readkey;

  End.

 Program   areadeltriangulo;                                         

  Uses crt;

  Var

  r,b,h:integer;

  Begin

  Clrscr;

  Writeln ('ingrese la base');

  Readln(b);

  Writeln('ingrese la altura');

  Readln(h);

  r:=b*h div 2;

  Writeln('su resultado es: ',r);

  Readkey;

  End.

Program   dividir2numeros;                                        

  Uses crt;

  Var

  A,B,C:integer;

  Begin

  Clrscr;

  Writeln ('ingrese su numero');

  Readln(A);

  Writeln ('ingrese 2 numeros');

  Readln (B);

  C:=A div B;

  Writeln ('su resultado es: ',c);

  Readkey;

  End.

Program divi;          

uses crt;

Var

b,r,a:real;

Begin

Clrscr;

Writeln ('ingrese un numero');

Readln(a);

Writeln ('ingrese otro numero');

Readln (b);

r:=a/b;

Writeln ('el resultado de la división es: ',r:2:3);

Readkey;

End.

Program    downtofor;

Uses crt;

var

n:integer;

begin

clrscr;

for n:= 50 downto 1 do

writeln(n);

end.

Program   examen;

 uses crt;

 var

 a,h,b:real;

 Begin

 clrscr;

 Writeln('ingrese la altura');

 Readln(h);

 Writeln('ingrese la base');

 Readln(B);

 a:=b*h;

 Writeln('el area del rectangulo es',a:2:2);

 Readkey;

 End.

program    fortodoexamen;

uses crt;

var

n:integer;

begin

clrscr;

for n:= 1 to 20 do

writeln(n);

readkey;

end.

program   sumaexamen;

 uses crt;

 var

 A,B,C:integer;

 Begin

 clrscr;

 Writeln('ingrese su numero');

 Readln(A);

 Writeln('ingrese 2 numeros');

 Readln(B);

 C:=A+B;

 Writeln('su resultado es: ',c);

 Readkey;

 End.

program text;

uses crt;

begin

gotoxy(3,4);textcolor(green+blink);

gotoxy(3,4);backgroung(black);

gotoxy(3,4);wite('hola');

readkey;

end.

program   iralcine;

 uses crt;

 var

 A:string;

 b:integer;

 Begin

 clrscr;

 Writeln('ingreses su nombre');

 Readln(A);

 Writeln('ingrese su edad ');

 Readln(B);

 if b<18 then

 begin

 Writeln('usted no tiene derecho de pasar');

 End

 else

 writeln('usted puede pasar');

 readkey;

 end.

program  multiplicaciondefracciones;

uses crt;

var

a,b,c,d,r:integer;

begin

clrscr;

writeln('ingrese el primer numerador: ');

readln(a);

writeln('ingrese el primer denominador:');

readln(c);

writeln('ingrese el segundo numerador:');

readln(b);

writeln('ingrese el segundo denominador:');

readln(d);

r:= (a*b) div (c*d);

writeln ('el resultado es: ',R);

readkey;

end.

program   pedirunnombre;

uses crt;

 var

 A,B,C:string[10];

 Begin

 clrscr;

 Writeln('ingrese su nombre: ');

 Readln(A);

 Writeln('hola ',a);

 Readkey;

 End.

program   numsposiynega;

...