Информация о среднесуточной температуре воздуха за месяц в виде массива . определите и выведите на экран сколько раз температура была ниже среднемесячной информатика

var

a:array[1..30] of real;

average,s:real;

i,x:integer;

begin

for i:=1 to 30 do

begin

read(a[i]);

s:=s+a[i]

end;

average:=s/30;

for i:=1 to 30 do

if a[i]<average then x:=x+1;

writeln(x)

end.

3d моделирование – построение модели изделия в профессиональных графических программа. Трехмерное моделирование включает следующую последовательность действий: создание примитивной формы; проработка мелких деталей; сглаживание форм.

Текстурирование – процесс наложения текстур на модель для придания ей реалистичности.

Настройка освещения, сцены окружения, выбор точки наблюдения и настройка камер, добавление дополнительных эффектов.

Подготовка 3D модели к печати.

Настройка 3д-принтера.

Печать 3д.

Постобработка готового изделия.

Каждый этап имеет свои особенности и сложности. Рассмотрим подробнее как подготовить 3д модель к печати

Программа Вот:
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. 
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами