program raf105;
var k,a,p,b,m,let:real;
begin
write('Площадь участка (га.): ');
readln(k);
write('Средняя урожайность с гектара (ц.): ');
readln(a);
write('Увеличение участка за год (% от площади): ');
readln(p);
write('Рост урожайности за год (% от урожайности): ');
readln(b);
write('Желаемый урожай (ц.): ');
readln(m);
while a < m do
begin
k+= (k/100*p);
a+= (a/100*b);
let+= 1;
end;
writeln;
writeln('Желаемая урожайность (',m,' ц.) будет достигнута через ',let,' лет');
writeln('При этом, площадь участка будет составлять примерно ',round(k),' га.');
end.
Язык PascalABC
Это управляющий символ.
Код 13 (шестнадцатеричное 0D) - этот символ вводится при нажатии клавиши перевода строки (Enter).
Если точнее, то этот символ называется "возврат каретки", или CR (сокр. от англ. CARRIAGE RETURN) -перемещает позицию ввода (или печати) к началу текущей строки.
В ОС Windows вместе с ним при нажатии Enter в файл запишется ещё один символ с кодом 10 (шестнадцатеричное 0A) - "перевод строки" или LF (сокр. от англ. LINE FEED) -перемещает позицию ввода (или печати) на одну строку вниз.
Только один символ CR используется для перевода строки в системах Macintosh (Mac OS).
Только один символ LF используется для перевода строки в Unix-системах.
Сам символ CR не видно на экране (правда, в Ворде и некоторых других текстовых редакторах можно всё же включить показ непечатаемых символов), но видно как происходит перевод строки при нажатии Enter.