我每次写program都会间中检查一下
可是他说我错，我错在哪？
求大神帮忙

program cw1;
var
A , B , C , D : integer;
begin
randomize;
A:=random(5)+1;
write('Enter you first gress <1-5>');
readln(B);
if A=B
then
writeln('You guess is Correct!')
else
writeln('You guess is wrong');
write('Enter you first gress <1-5>');
readln(C);
if A=C
then
writeln('You guess is Correct!');
writeln;
end.
else
writeln('You guess is wrong');
write('Enter you first gress <1-5>');
readln(D);
if A=D
then
writeln('You guess is Correct!')
else
writeln('You guess is wrong! The correct answer is ',A);
readln
end.
功课做出来了
可是不知怎样Correct就停止后面的
求大神教我

刚才错的
这个才是
我不会加下去啦
program cw1;
var
A , B , C , D : integer;
begin
randomize;
A:=random(5)+1;
write('Enter you first gress <1-5>');
readln(B);
if A=B
then
writeln('You guess is Correct!')
else
writeln('You guess is wrong');
write('Enter you first gress <1-5>');
readln(C);
if A=C
then
writeln('You guess is Correct!')
else
writeln('You guess is wrong');
write('Enter you first gress <1-5>');
readln(D);
if A=D
then
writeln('You guess is Correct!')
else
writeln('You guess is wrong! The correct answer is ',A);
readln
end.