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

program Programa;

var a, b, c, d: integer;

begin

 d:=0;

 writeln (' Введите три числа');

 readln (a, b, c);

 if (a>0)

 then

 begin

   d:=d+a;

 end;

 if b>0

 then

 begin

   d:=d+b;

 end;

 if c>0

 then

 begin

   d:=d+c;

 end;

 if (d=0)

 then

 begin

 writeln ('Все корни отрицательные');

 end

 else

 begin

 writeln (d);

 end;

end.

Объяснение:

На, сделал, проверил, работает.

1. Цилиндр, конус и шар;
2. Конический хвостовик инструмента (сверло, зенкер, фреза, развёртка, зажимной патрон, электрод контактной сварки) и коническое отверстие соответствующего размера (гнездо) в шпинделе или задней бабке, например, токарного станка;
3. Сфера представляет собой совокупность информации, информационной инфраструктуры, субъектов, осуществляющих сбор, формирование, распространение и использование информации, а также системы регулирования возникающих при этом общественных отношений;
5.
1. Выбрать создание детали (Файл-->Создать-->Деталь).
2. Выбрать в дереве модели плоскость x-y.
3. Включить режим эскиз (кнопка панели управления ).
4. На геометрической панели построения выбрать ввод окружность.
5. Ввести параметры: координаты центра - 0,0; диаметр окружности - 35 мм.
6. Закончить редактирование эскиза (повторно нажать на кнопку «эскиз»).
7. На панели редактирования детали выбрать Операция выдавливания.
8. В окне Параметры на вкладке Операция выдавливания установить параметры: прямое направление; расстояние 50 мм (высота цилиндра)и нажать кнопку Создать.
9. На экране должно появиться изображение цилиндра.

Пешеходу запрещается: 1. двигаться по краю проезжей части дороги при наличии тротуара, пешеходной или  велосипедной дорожки, обочины, по которым возможно движение пешеходов.2. задерживаться и останавливаться на проезжей части дороги, в том числе на линии  горизонтальной дорожной разметки, разделяющей встречные и попутные потоки  транспортных средств, за исключением остановки на островках безопасности.3. переходить проезжую часть вне подземного, надземного, наземного пешеходных  переходов на участке дороги: - с разделительной зоной, разделительной полосой; - с общим числом полос движения шесть и более; - где установлены дорожные ограждения.4. выходить на проезжую часть дороги из-за стоящего транспортного средства или  иного объекта, ограничивающего обзорность дороги, не убедившись в отсутствии  приближающихся транспортных средств.