Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+144
Program hren;
Var
i:integer;
k:string;
label
start;
begin
Start:
Repeat
Writeln('Введите пятизначное число');
readln(k);
Until ord(k[0])=5;
for i:=1 to 5 do
if (ord(k[i])<48) or (ord(k[i])>58) then goto start;
i:=ord(k[1])+ord(k[2])+ord(k[3])+ord(k[4])+ord(k[5])-48*5;
writeln(i);
read;
end.Один чувак знакомый сидел да задачки решал из учебника и была типа, что нужно пользователю ввести за раз пятизначное число и что бы на экран вывелись все цифры задом наперёд. Ну, решение интересное, как мне показалось, он придумал. Другой чувак делил что-то, если не путаю, а этот использовал массив да кодовую страницу.
Запостил: 
CodeStar,
16 Июля 2014
Follow us!
Грязный трупопаскалевский хак для получения длины?
> вывелись все цифры задом наперёд
Да ну? Этот код сумму цифр выводит. Да еще и забагован - 58й символ (вроде это двоеточие?) схавает как цифру 10.
P.S. Хватит постить лабы.
Этот код выводит задонапередную сумму цифр)