Выполни на компьютере или в рабочей тетради колибри показан на рисунке пронумеруй объекты

Нету задания увы
Будет - будут ответы

PASCAL ABC

program z1;  

var a,s:integer;  //описание переменных

begin

readln(a);  //вводим первое число

s:=0;  //начальное значение суммы

while a<>0 do //условие ввода (ввод оканчивается нулем)

 begin

   if (a mod 10=4) and (a mod 6=0) then s:=s+a;  //проверка двух условий:                           первая скобка - оканчивается на 5, вторая - кратно 6

   readln(a) //заново вводим число

 end;

writeln(s)  //вывод суммы, когда весь цикл завершится

end.

P.S не особо понимаю, почему с таким вводом, такой ответ у тебя получается

program Proizv;

const

 Di =  8;    // размерность массива, можно менять на любое другое  строки

 Dj = 10;      // а здесь столбцы

var

 A: array [1..Di, 1..Dj] of Integer;

 i, j, p: Integer;

begin

 Randomize;

 for i := 1 to Di do begin

   WriteLn;

   for j := 1 to Dj do begin

     A [i, j] := Random (21) - 3;

     Write (A [i, j] :3, ' ');

   end;

 end;

 p := 1;

 for i := 1 to Di do begin

   if i mod 2 = 0 then          // если строка четная то пропускаем

     Continue;

   for j := 1 to Dj do begin

     if A [i, j] < 0 then       // перемножаем только отрицательные значения

       p := p * A [i, j];

   end;

 end;

 WriteLn;

 WriteLn ('Произведение = ', p);

 ReadLn;

end.

Объяснение:

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