Pascal zodiaco

[pic]

program zodiaco; //saber tus predicciones y asi//

uses crt;

var

tu:integer;

begin clrscr;

gotoxy (3,2); writeln ('______________________________________');gotoxy (3,16); writeln ('______________________________________');

gotoxy (2,3); writeln ('|');

gotoxy (2,4); writeln ('|');

gotoxy (2,5); writeln ('|');

gotoxy (2,6); writeln('|');

gotoxy (2,7); writeln ('|');

gotoxy (2,8); writeln ('|');

gotoxy (2,9); writeln ('|');

gotoxy (2,10); writeln ('|');

gotoxy (2,11); writeln ('|');

gotoxy (2,12); writeln('|');

gotoxy (2,13); writeln ('|');

gotoxy (2,14); writeln ('|');

gotoxy (2,15); writeln ('|');

gotoxy (2,3); writeln ('|');

gotoxy (3,3); writeln('______________________________________');

gotoxy (6,3); writeln ('|');

gotoxy (6,5); writeln ('|');

gotoxy (6,6); writeln ('|');

gotoxy (6,7); writeln ('|');

gotoxy (6,8); writeln ('|');

gotoxy (6,9);writeln ('|');

gotoxy (6,10); writeln ('|');

gotoxy (6,11); writeln ('|');

gotoxy (6,12); writeln ('|');

gotoxy (6,13); writeln ('|');

gotoxy (6,14); writeln ('|');

gotoxy(6,15); writeln ('|');

gotoxy (3,3); writeln ('num');

gotoxy (14,3); writeln ('fechas');

gotoxy (27,3); writeln ('|');

gotoxy (27,5); writeln ('|');

gotoxy (27,6); writeln ('|');gotoxy (27,7); writeln ('|');

gotoxy (27,8); writeln ('|');

gotoxy (27,9); writeln ('|');

gotoxy (27,10); writeln ('|');

gotoxy (27,11); writeln ('|');

gotoxy (27,12); writeln ('|');gotoxy (27,13); writeln ('|');

gotoxy (27,14); writeln ('|');

gotoxy (27,15); writeln ('|');

gotoxy (31,3); writeln ('Signo');

gotoxy (41,4); writeln ('|');

gotoxy (41,5);writeln ('|');

gotoxy (41,6); writeln ('|');

gotoxy (41,7); writeln ('|');

gotoxy (41,8); writeln ('|');

gotoxy (41,9); writeln ('|');

gotoxy (41,10); writeln ('|');

gotoxy...