<span>1. Выбрать участок под строительство
</span><span>2. Получения разрешения на проектирования
</span>3. <span>Геология участка
</span><span> 4.Проект
</span>5.<span>Утверждение проекта дома
</span><span>6. Получить разрешение на строительство
</span><span>7. Строительство</span>
Var a:array [1..100] of integer;
<span>i:integer; </span>
<span>begin </span>
<span>randomize; </span>
<span>for i:=1 to 100 do begin </span>
<span>a[i]:=random(i); </span>
<span>if (a[i]>=10) and (a[i]<=99) then write (a[i],' '); </span>
<span>end; </span>
<span>end.</span>
Program program1;
var
a, b, c, p: real;
begin
write('Введите длины сторон треугольника: ');
readln(a, b, c);
p := a + b + c;
writeln('Периметр треугольника со сторонами ', a, ', ', b, ' и ', c, ' равен ', p);
end.