Вводится слово из 4 букв. напечатать слово из 3-й, 4-й и 1-й букв

ноль или четыри или один или семь 

Const     n = 13; var     a: array[1..n] of integer;     i: integer; begin randomize; write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(19)+1;       write(' ',a[i]);       end; writeln; write('каждый элемент возводится в квадрат: '); for i: = 1 to n do       begin       a[i]: =a[i]*a[i];       write(' ',a[i])       end end.

//pascalabc.net версия 3.2, сборка 1389 //если программа не запускается, то обновите версию begin       writeln('суммa квадратов чисел от 5 до 25 =', range(5, 25).select(x -> x * x).sum);       writeln;             var a : = arrgen(15, i -> readinteger('a[' + i.tostring() + ']='), 1);       writeln('произведение элементов массива, больших 5 =', a.where(x -> x > 5).aggregate(1, (x, y)-> x * y)); end.