Правила форума
StrECopy.PASLanguage:
Русский
English
{StrECopy.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the StrECopy function.}
uses Strings, WinCrt;
const
Turbo: PChar = 'Turbo';
Pascal: PChar = 'Pascal';
var
S: array[0..15] of Char;
begin
StrECopy(StrECopy(StrECopy(S, Turbo), ' '), Pascal);
Writeln(S);
end.
::
::
::
