Дано произвольная символьная строка

var a: string; begin writeln ('Введите строку'); readln (a); writeln ('Длина исходной строки равна: ', length (a); Delete (a, 1, 3); //Удаляем из строки a 3 символа, начиная с 1 позиции writeln ('Полученная строка: ', a); end.