Подскажите!

[chezz]

Добрый день, пишу программку первую, ответьте на вопрос пожалуйста -

Почему при написании первого значения

write('Введите значение X ');

ниже процедура read(x);,
а при написании второго значения

write('Введите значение Y ');

, ниже процедура readln;, а не как в первой read?

program matching;
var x,y:integer;
begin
writeln;
write('Введите значение X '); 
read(x);
write('Введите значение Y '); 
readln(y);
case x-y of
0:writeln ('X и Y равны');
else
writeln ('X и Y не равны');
end;
end.

 

[misterio]

read(); - считывание без перехода на новый рядок.
readln(); - с переходом.
Аналогично с Write - Writeln.

Если написать в конце Readln; - будет задержка программы до нажатия <Enter>.
Writeln - пропуск строки.

 

[chezz]

misterio, спасибо большое!