![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
08/06/2011, 22:27
|
| | Fecha de Ingreso: junio-2011
Mensajes: 1
Antigüedad: 13 años, 2 meses Puntos: 0 | |
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 |