s := '12345'; - присваивание значения строковой переменной s
n := Length(s) + Length('456'); - Length(s) -определение длины строки s (5);
Length('456') - определение длины строки '456' (3); т.е. n = 5+3 = 8
writeln ( n ); - вывод значения n на экран (т.е. выведется 8)