Вот решения на с++.
Оба делал через операторы if.
52=26 половина
26+20=46
52-46=6
6
У тебя запятые в скобках немного не на местах стоят
program pr;var m:string;beginread(m);writeln('Мой повелитель', ' ', m);end.
Если введёшь с всё имя, то всё будет стоять на месте.
Создатель компьютерной вычислительной сети был Джозеф Карл Робнетт