Строки - Pascal ABC (14143)

Формулировка задачи:

Дана стартовая строка. Создать новую строку из N первых символов стартовой строки и E последних символов другой строки, которая вводится пользователем с клавиатуры. Количества N и E вводятся пользователем с клавиатуры (следите за пределами для этих чисел). Спасибо за внимание!

Решение задачи: «Строки»

Листинг программы

Var s1, s2, newS : string;
    i, N, E : integer;
begin
s1:='qwerty';
Writeln('Enter s2');
Readln(s2);
Writeln('Enter N');
Readln(N);
Writeln('Enter E');
Readln(E);
newS:='';
For i:=1 to N do newS:=newS+s1[i];
For i:=(length(s2)-E+1) to length(s2) do newS:=newS+s2[i];
Writeln(newS);
end.

Объяснение кода листинга программы

В первой строке объявляются переменные s1, s2, newS и i, а также указывается тип данных каждой переменной (строка, целое число).
Во второй-четвертой строках пользователю предлагается ввести строку s2, целое число N и еще одно целое число E.
В пятой строке создается пустая строка newS.
В шестой и седьмой строках происходит чтение символов из строки s2 и добавление их к newS. При этом используется цикл for, который выполняется N раз.
В восьмой строке происходит чтение символов из строки s2, начиная с индекса (длина(s2)-E+1) и до конца строки s2. Эти символы также добавляются к newS.
В девятой строке выводится на экран значение переменной newS.