Pascal/Turbo Pascal - IF (error)

alguien me puede decir por q no compila esto :
uso dev-pascal

program er;
var n:integer;
begin
readln(n);
if n<0 then begin
writeln('asdassds');
writeln('asdasdasssdee');
else writeln('21151');
writeln('6325077');
end;
end.

es q no se por q me tira erro en la linea del ELSE.

El problema es que el bloque del IF no lo cierras. Cada vez que uses BEGIN, debes usar END para cerrar dicho bloque.
En este caso particular, debes usar END sin punto y coma final, ya que luego usas el ELSE.

Saludos!

Quita el punto y coma antes del ELSE.

Saludos.