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