program biblioteca;
uses crt;
var a,b,c,d,e,f,g,h: integer;
var m: integer;

procedure Calculos;
var a: integer;
begin
clrscr;
writeln (' ------------------------------------------------------------- ');
writeln ('| Libro de Calculus |');
writeln ('|Nombre del Actor: Tom Apostol |');
writeln ('|No. de Páginas: 696 |');
writeln ('|Fecha de Impresion: 12 de enero de 1899 |');
writeln ('|Volumen: 1 |');
writeln ('|Comentario: Este libro se a hecho en base a operaciones, |');
writeln ('|para que el alumno aprenda mas acerca de la matematica. |');
writeln ('|y poder calcular dedicadamente las operaciones. |');
writeln (' ------------------------------------------------------------ ');
writeln;
repeat until keypressed;
end;