Var s, n: integer; begin s : = 42; n : = 1; while s > 0 do begin s : = s – 5; n : = n + 3 end; writeln(n) end решить по !

Шаг №1  
             S = 42 - 5 = 37
              n = 1 + 3 = 4
Шаг №2
              S = 37 - 5 = 32
               n = 4 + 3 = 7                
Шаг №3
              S = 32 - 5 = 27
               n = 7 + 3 = 10
Шаг №4
              S = 27 - 5 = 22
               n = 10 + 3 = 13
Шаг №5
              S = 22 - 5 = 17
              n = 13 + 3 = 16
Шаг №6
              S = 17 - 5 = 12 
              n = 16 + 3 = 19
Шаг №7
              S = 12 - 5 = 7
               n = 19 + 3 = 21
Шаг №8
              S = 7 - 5 = 2
               n = 21 + 3 = 24

А вот КОРОТКОЕ решение:
     42 / 5 = 8 + 2/5
     n = 8*3  = 24