Правила форума
Insert.PASЯзык:
Русский
English
{ Пример программы для процедуры Insert }
var
S : String;
begin
S := 'Pascal forever !';
Insert('& Ada ', S, 8);
WriteLn(S); { 'Pascal & Ada forever!' }
end.
S : String;
begin
S := 'Pascal forever !';
Insert('& Ada ', S, 8);
WriteLn(S); { 'Pascal & Ada forever!' }
end.
::
::
::
