Правила форума
Delete.PASЯзык:
Русский
English
{ Пример программы для процедуры Delete }
uses Crt;
var
S : String;
begin
S := 'Mac OS X & Windows forever!';
Delete(S, 10, 10);
WriteLn(S); { 'Mac OS X forever!' }
end.
var
S : String;
begin
S := 'Mac OS X & Windows forever!';
Delete(S, 10, 10);
WriteLn(S); { 'Mac OS X forever!' }
end.
::
::
::
