Язык:
Русский
English
{ Пример программы для функции WhereY }
uses Crt;
begin
WriteLn;
WriteLn;
Write('Это предложение находится в ');
WriteLn(WhereY, ' строке.');
end.
begin
WriteLn;
WriteLn;
Write('Это предложение находится в ');
WriteLn(WhereY, ' строке.');
end.