Дано произвольная символьная строка.Узнать её длину и удалить 1,2 и 3 символ ивывести на экран.Pascal.

Предыдущий
вопрос Следующий
вопрос

program RemoveCharacters;

var
str: string;
len: integer;

begin
write('Enter a string: ');
readln(str);

len := length(str);

writeln('Length of the string: ', len);

delete(str, 1, 1);
writeln('String after deleting 1 character: ', str);

delete(str, 1, 1);
writeln('String after deleting 2 characters: ', str);

delete(str, 1, 1);
writeln('String after deleting 3 characters: ', str);
end.