Закрывается консоль, несмотря на readln(); - Free Pascal

Формулировка задачи:

Здравствуйте, появилась такая проблема
program Project1;
 
 var
   i,j,k:integer;
begin
read(i);
read(j);   //если вместо этого написать readln консоль подождет
writeln(i, '  ', j);
readln();// захлопывается если не задвоить readln
end.
Вроде как readln() стоит, а консоль все равно захлопывается, в ходе натурных экспериментов удалось выяснить , что если задвоить в конце Readln() или вместо последнего read написать readln, консоль подождет. Но, если написать сколь угодно много read() в конце, консоли будет все равно, она захлопнется
program Project1;
 var
   i,j,k:integer;
begin
read(i);
read(j);
writeln(i, '  ', j);
read();
read(); //захлопывается
end.
Где-то на подкорке после всех этих экспериментов я понимаю как работает, но вразумительного объяснения у меня нет почему происходит так, может кто-то подскажет?

Код к задаче: «Закрывается консоль, несмотря на readln(); - Free Pascal»

textual
ReadLn(число);

6   голосов, оценка 3.667 из 5


СОХРАНИТЬ ССЫЛКУ