висловте припущення,коли варто застосовувати голосовий пошук .Для перевірки власних припущень знайдіть потрібні відомості в Інтернеті.​

Uses graphabc;

var
    i, c: integer;
    ar: array[1..5]of integer;

begin
  for i := 1 to 5 do read(ar[i]);
  window.IsFixedSize := true;
  window.Init(0, 0, 800, 800, clDarkGray);
  window.CenterOnScreen;
  SetFontSize(32);
  for i := 1 to 5 do c := c + ar[i].ToString.Length;
  for i := 1 to 7 do writeln;
  write(' ':33 - c);
  for i := 1 to 5 do
  begin
    if(ar[i] mod 2 = 0) and (ar[i] mod 10 <> 0) then
     begin
      SetFontColor(clred);
      write(ar[i]);
    end
    else if(ar[i] mod 10 = 0) then
      begin
      SetFontColor(clblue);
      write(ar[i]);
    end
    else if(ar[i] mod 2 <> 0) then
    begin
      SetFontColor(clyellow);
      write(ar[i]);
    end
  end;
 end.

                                                   Початок

                                          ввести значення х

                        Ні     <             х>8       >             Так

 Ні   <  8<=х<30   >Так                                           х-1

  х>=30                           х+15

          Так  > х*5

                                            Повідомити результат

                                                          Кінець

1)х=4

4<8

4-1

Відповідь: 3

2)х=20

8<=20<30

20+15

Відповідь: 35

3)х=52

52>8

8<=30

52*5

Відповідь:260

Объяснение: