pro-Gramas tu biblioteca de programacion

Obtendremos el perímetro de una figura con lados iguales, pediremos uno de sus lados.

program perimetro;    {nombre del programa}
uses
    crt;
var
   a,b:real;       {asignacion de variables}
begin                 {cuerpo del programa}
     clrscr;          {borra la pantalla}
     gotoxy(16,3);
     write('¨cuanto mide uno de sus lados la figura? '); {muestra en
                                    pantalla lo que esta en comillas}
     readln(a);       {pide un valor}
     gotoxy(22,4);
     write('¨Cuantos lados tiene la figura? '); {muestra en pantalla
                                             lo que esta en comillas}
     readln(b);       {pide un valor}
     clrscr;
     gotoxy(21,3);
     writeln('El perimetro de la figura es: ',a*b:8:3); {muestra lo que esta
                                            en comillas y el resul dea*b}
     readln;          {se queda pidiendo un valor}
end.                  {termina el programa}