Люди, подскажите, , мне это дала учительница, как мне это решить?Типо проверочная работа по теме «анализ программ, Pascal” посчитайте, пж решить это

просто бери и копируй это в паскаль или пиши в ручную, там будет сразу писаться. Только после write(n), writeln(s),writeln(n) надо этот знак ставить ;