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