Ранго и Плуто,но это как-то к информатике отношения не имеет.
Если именно n:=1 downto 5, то в итоге y=3, т.к. downto применяется от большего и с каждым шагом n уменьшатся, тут же он увеличивается и стоит downto, цикл даже не запуститься. а если n:=5 downto 1 do y:=y+n; тогда
y:=3+5, y=8
y:=8+4, y=12
y:=12+3, y=15
y:=15+2, y=17
y:=17+1, y=18
y=18
//Pascal ABC.NET v3.0
s.Reverse.Print(''); //переворачивает и выводит
или
for i:=1 to length(s) div 2 do
begin;
c:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=c[1];
<span>end;</span>