project1.lpr(5,3) Fatal: Syntax error, "BEGIN" expected but "USES" found
program eu;
label sim;
label nao;
uses crt,math;
var s_n:char;
score:integer;
procedure drawbox(x,y,width,height:integer;title:string);
var i1,i2:integer;
begin
for i2:=1 to height do
begin
gotoxy(x,y+i2-1);
for i1:=1 to width do
begin
if (i1 > 1) and (i1 < width) and (i2 > 1) and (i2 < height) then
write(' ')
else
write('=');
end;
end;
if (title <> '') then
begin
i1 := y+floor((height-1)/2);
i2 := x+floor(width/2-length(title)/2);
gotoxy(i2,i1);
write(title);
end;
end;
procedure sa;
begin
delay(100);
end;
procedure g(a:string);
begin;
write(a);
end;
procedure spa(spa:integer);
begin
score:=0;
repeat
write (' ');
score:=score+1;
until score=spa ;
end;
procedure clrln;
begin
gotoxy(23,4);
clreol;
gotoxy(80,4);
textcolor(white);
write('=');
gotoxy(21,4);
textcolor(red);
score:=0;
repeat
write (' ');
score:=score+1
until score=1 ;
write ('| ');
sa;
end;
procedure s0;
begin
score:=0;
end;
begin
score:=0;
drawbox(1,1,80,11,'');
gotoxy(2,2);
spa(10);
textcolor(white);
write('________');
score:=0;
gotoxy(2,3);
spa(9);
write ('/ 0 0 \');
score:=0;
gotoxy(2,4);
spa(8);
write ('| /\ |');
score:=0;
gotoxy(2,5);
spa(8);
write ('| == |');
score:=0;
gotoxy(2,6);
spa(8);
write ('| \____/ |');
score:=0;
gotoxy(2,7);
spa(9);
write ('\________/');
score:=0;
gotoxy(2,8);
spa(10);
textcolor(green);
write ('___||___');
score:=0;
gotoxy(2,9);
spa(8);
write ('_/ \/ \_');
score:=0;
gotoxy(2,10);
spa(7);
write ('/ / | \ \');
score:=0;
gotoxy(21,6);
textcolor(red);
spa(1);
write ('/_/');
score:=0;
gotoxy(21,5);
repeat
write (' ');
score:=score+1
until score=1 ;
write ('| ___________________/');
score:=0;
gotoxy(22,3);
repeat
write (' ');
score:=score+1
until score=1 ;
write('/ \');
score:=0;
gotoxy(23,2);
repeat
write (' ');
score:=score+1
until score=1 ;
write('____________________');
score:=0;
gotoxy(21,4);
repeat
write (' ');
score:=score+1
until score=1 ;
write ('| ');
sa;
g('O');
sa;
g('l');
sa;
g('a');
sa;
g(' e');
sa;
g('u');
sa;
g(' s');
sa;
g('o');
sa;
g('u');
sa;
g(' o');
sa;
g(' F');
sa;
g('a');
sa;
g('b');
sa;
g('i');
sa;
g('o');
sa;
g('! |');
delay(1000);
gotoxy(40,2);
write('__________');
gotoxy(40,3);
write (' \');
gotoxy(40,5);
write('__________/');
clrln;
g('G');
sa;
g('o');
sa;
g('s');
sa;
g('t');
sa;
g('a');
sa;
g('r');
sa;
g('i');
sa;
g('a');
sa;
g('s');
sa;
g(' d');
sa;
g('e');
sa;
g(' m');
sa;
g('e');
sa;
g(' c');
sa;
g('o');
sa;
g('n');
sa;
g('h');
sa;
g('e');
sa;
g('c');
sa;
g('e');
sa;
g('r? |');
sa;
s_n:=0;
gotoxy(25,1);
readln(s_n);
case s_n of
'sim':goto sim;
'nao':begin
clrln;
g('Q');
sa;
g('u');
sa;
g('e');
sa;
g(' p');
sa;
g('e');
sa;
g('n');
sa;
g('a');
sa;
end;
end;
readln;
end.
------------------------------------------------------------------------------------------------------------------------first: the program is in portuguese;
second:the error must be at the beggining