Правила форума
Language:
Русский
English
{StrNew.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the StrNew function.}
uses Strings, WinCrt;
var
P: PChar;
S: array[0..79] of Char;
begin
Readln(S);
P := StrNew(S);
Writeln(P);
StrDispose(P);
end.
 StrNew.PAS |
::
::
::
