Строковой тип данных

[Morgans]

Вот нашел еще одно задание, помогите пожалуйста, а то лекцию пропустил, теперь не могу написать Задание вот на картинке :

[Serge_Bliznykov]

А почему Вы не потрудились набрать текст задания и перевести его на русский?

[Morgans]

Перевести ?

[Stilet]

Да. Не все здесь Украинский знают.

х = Na24Nd
Y = сам постичай кол-во символов

[stck]

Сообщение от Stilet

х = Na24Nd

Там вроде бы должно быть Na24Nd4, так как в X 9 символов и последним Copy() в Concat() мы берём 2 символа. Или я ошибаюсь?

[Morgans]

Вот задание на русском, только по подробнее можно пожалуйста, я новичок!
Определить действие фрагмента программы и вычислить значение переменных Х и В после его выполнения, если var X, S: string [18]; A: string [1]; Y: integer; X:="N"+"a1b2c3d4"; S:="24"+"N"; Y:=512.Дополнительно: Вместо N номер варианта подставить (В меня 5 вариант, подставлять нужно 5)

[Hacker19_90]

Вот код

Program project;
uses crt;
var
    x, s: string[18];
    a: string[1];
    y: integer;
begin
    clrscr;
    x := '5' + 'a1b2c3d4';
    Writeln ('x= ', x);
    s := '24' + '5';
    writeln ('s= ', s);
    y := 512;
    Writeln ('y= ', y);
    Writeln ('После строковых функций');
    x := concat(copy(x, 1, 2), s, copy(x, 8, length(x)-7));
    Writeln ('x= ', x);
    Y := length(x);
    Writeln ('y= ', y);
    REadkey;
end.

И вот что в итоге

[Morgans]

Спасибо огромное