Var
i : Integer;
begin
for i := 10 to 99 do
if (i div 10 - i mod 10 = 1) or (i mod 10 - i div 10 = 1) then <span>Writeln(i);
</span> Readln;
<span>end.</span>
PAscal abc.
<em><u>Проверка.</u></em>
введите кол-во элементов массива
10
-8 -12 10 14 -1 13 -9 14 3 11
сумма=41<span>
</span>
Я думаю и образная и текстовая
роботы умеют ходить
и умеют читать и писать
я так понял твой вопрос