Tema: Error pascal
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 08/06/2011, 22:27
ivanep
 
Fecha de Ingreso: junio-2011
Mensajes: 1
Antigüedad: 12 años, 11 meses
Puntos: 0
Busqueda Error pascal

me pueden decir un error que me da en mi free pascal necesito sabes cual es, me dice que tiene una (;) sobrante pero no se cual es

Cita:
uses
crt;
var
num1,num2,num3:integer;
procedure leer(var n1,n2,n3:integer);
begin
write('valor 1: ');readln(n1);
write('valor 2: ');readln(n2);
write('valor 3: ');readln(n3);
writeln;
end;

procedure evaluar(var n11,n22,n33: integer);
begin
if n11>n22 then
begin
if n11>n33 then
begin
write(n1,' es el mayor.');
end
end;
end
else
begin
if n22>n33 then
write(n33,' es el mayor');
end
else
begin
write(n22,' es el mayor');
end;

begin
ClrScr;
leer(num1,num2,num3);
evaluar(num1,num2,num3);
ReadKey;
end.
lo necesito mucha ayuda plis