1) var a:integer; begin for a:=1 to 7 do writeln('Я учусь в гимназии 12'); <span>end. 2)</span>var a:integer; begin for a:=15 to 20 do writeln(a); <span>end. 3) var a,b,c:integer; begin writeln('Введите первое число'); read(a); writeln('Введите второе число'); read(b); c:=a+b; if (a<100) and (a>1) and (b>1) and (b<100) then writeln('Сумма чисел равна:',c) else writeln('Ошибка, числа не в ходят в диапазон 1<N<100'); <span>end.</span> </span>