For i := 2 to 5 do s := s + 2*i;
Это цикл, то есть он будет повторяться n-ое число раз, в твоем случае пока i не будет равняться 5.
Значит, сначала переменной i присваивается число 2 значит
s := 3 + 2*2 = 7
Потом число 3
s := 7 + 2*3 = 13
Потом число 4
s := 13 + 2*4 = 21
И вот наконец, число 5
s := 21 + 2*5 = 31
И в конце командой WriteLn(s) ты выведешь число 31 на экран.