var

  a: string;

begin

  writeln('Введите строку');

  readln(a);

  writeln('Длина исходной строки равна:  ', length(a));

  Delete(a, 1, 3);  //Удаляем из строки a 3 символа, начиная с 1 позиции

  writeln('Полученная строка: ', a);

end.

var
a:string;
l:integer;
begin
readln(a);
l:=length(a);
Delete(a, 1, 3);
writeln('dlina=', l);
writeln(a);
end.