Склавиатуры вводятся 2 числа. составить алгоритм и программу сравнения этих чисел.

Var i, p: integer; m: array [1..4] of integer; begin  writeln('введите 4 числа: ');   for i : = 1 to 4 do  readln (m[i]);   p : = 0;   writeln('четные числа кратные 3: ');   for i : = 1 to 4   do  if (m[i] mod 2 = 0) and (m[i] mod 3   = 0) then  begin    write (m[i], ' ');     inc(p);   end;   if p = 0 then write('таковых нет');   end.

наиболее простым способом перехвата информации является подслушивание.

прослушивание телефона тоже способ перехвата информации.

перехватчики информации в сети с программ снифферов.

перехватчики информации в компьютере это компьютерные вирусы.

program xxx;

  var n, c, d, e, s : integer;

begin

    write('введите число');

    readln(n);

    c: = n div 100;

    d: =(n div 10) mod 10;

    e: = n mod 10;

    s: = c + d + e;

    writeln('сумма чисел =', s);

    readln

end.