Язык: 
Русский
English
{ Пример программы для функции StrCopy }
uses Strings, Crt;
var
S : array[0 .. 15] of Char;
begin
StrCopy(S, 'Turbo Pascal');
WriteLn(S);
end.
var
S : array[0 .. 15] of Char;
begin
StrCopy(S, 'Turbo Pascal');
WriteLn(S);
end.
|  StrCopy.PAS | 
| 
      Код для вставки:
        ::  ::  ::
      ГОСТ ::   
      Поделиться: 
       
      | 
|   |