дполните текст программыbegins:= ‘береза’;n:=length(s);for i:=1 to n-1 do begin a:=copy[ s, i, 2]; writeln (a); end;end.​

Глицерин – это органическое соединение, трехатомный спирт  

алимфатического ряда, сиропообразная бесцветная жидкость, которую  

получают омылением жиров или синтетическим Глицерин  

применяется в производстве взрывчатых веществ и синтетических смол.

Эманация — в теологии, концептуальный термин, означающий происхождение Универсума (вселенной) посредством истечения его из запредельного первоначала, Единого (Божества).

Ра́дий-226 (англ. radium-226) — радиоактивный нуклид химического элемента радия с атомным номером 88 и массовым числом 226.

Может это

Program TemperatureInDecember;  

Uses crt;  

Var tempDecember : array[1..31] of integer;  

i, countPlus, countZero, countMinus : integer;  

begin  

Clrscr;  

countPlus := 0;  

countZero := 0;  

countMinus := 0;  

for i:= 1 to 31 do  

begin  

if tempDecember = 0 then countZero += 1  

else if tempDecember > 0 then countPlus += 1  

else countMinus += 1;  

end;  

writeln('В декабре дней с нулевой температурой было: ', countZero);  

writeln('В декабре дней с отрицательной температурой было: ', countMinus);  

writeln('В декабре дней с положительной температурой было: ', countPlus);  

readln;  

end.  

 

Плохо отобразилось, вот скрин: