Составить програму с типом данных string pascalabc

Program string; var a: string; begin writeln('как тебя зовут? '); readln(a); writeln('приятно познакомиться, ', a,'.'); readln; end.

const n=10

var i,k: integer;

a: array [1..n]   of integer;

b: array [1..n]   of integer;

c: array [1..n]   of integer;

begin

for i: =1 to n do

begin

read(a[i]);

end;

k: =1;

for i: =1 to n do

begin

if i mod 2=0 then c[k]: =a[i];

k: =k+1;

end;

for i: =1 to n do

begin

read(b[i]);

end;

for i: =1 to n do

begin

if i mod 2 = 0 then c[k]: =b[i];

k: =k+1;

end;

for i: =1 to n do

begin

write(a[i]);

end;

for i: =1 to n do

begin

write(b[i]);

end;

for i: =1 to n do

begin

write(c[k]);

end;

Сумма средних цифр может быть равна числу от 0 до 18 сумма крайних цифр может быть равна числу от 1 до 18 (т.к. ерайняя левая цифра не может быть равна нулю, потому тто в противном случае это было бы уже не 4х значное число. например: 0123) так же получившиеся 2 новых числа не могут начинаться с нуля. порядок не убывания, значит второе число больше или равно первому. число 101 могло быть составлено только из 10 и 1, но 1 < 10, значит они расположены в порядке убывания, это нам не подойдёт 20 составлено из 2 и 0, тоже порядок убывания, не подходит 312 составлен либо (3 и 12), либо (31 и 2), но наши два числа не могут быть больше 18 (т.к десятичные цифры от 0 до 9) значит 312 составлен из 3 и 12 - подходит аналогично 1312 состоит из 12 и 13, подходит, т.к 13 > = 12 (пример исходного числа 6766)  а вот 1312 не подойдёт, т.к 12 < 13 1212 - подходит т.к. 12 > = 12 (пример исходного 6666) 112 - это либо 1 и 12, либо 11 и 2. второй вариант отсекаем, первый подходит (например 1660) 1012 - подходит ответ: может получиться 5 чисел из