Сколько раз выполнится тело цикла: s: =0 fori : = 4 to 1 do s: = s+1;

В условии ошибка. Если идет отсчет от большего числа к меньшему, то необходимо использовать downto. Это насколько я помню