Pascal中的小问题

program equation;
var
a,b,c,x1,x2,x,D:real;
begin
writeln('Please input a,b,c');
read(a,b,c);
D:=b*b-4*a*c;
if D>0 then
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln('x1=',x1:0:5);
write('x2=',x2:0:5);
end
else if D=0 then
begin
x:=(-b+sqrt(D))/(2*a);
writeln('x=',x:0:5);
end
else
writeln('ERROR,input another');
readln();
end.

想让程序在运行到最后是停止，便于程序员查看，是不是在 end. 前加 readln(); ?

如果是的话，为什么我加了还不能停止？

请大虾们出山啊，帮忙看看

不是加readln();

而是加readln;

没有括号哦

var a,b,c,x1,x2,x,D:real; begin { TODO -oUser -cConsole Main : Insert code here } writeln('Please input a,b,c'); Readln(a,b,c); D:=b*b-4*a*c; if D>0 then begin x1:=(-b+sqrt(D))/(2*a); x2:=(-b-sqrt(D))/(2*a); writeln('x1=',x1:0:5); write('x2=',x2:0:5); end else if D=0 then begin x:=(-b+sqrt(D))/(2*a); write('x=',x:0:5); end else write('ERROR,input another'); readln;

要将read(a,b,c);改成readln(a,b,c);