Составьте программу, которая находит большее из двух введенных с клавиатуры чисел a и b и выводит их на экран

Var a,b: integer;   begin  writeln('введите a');   read(a);   writeln('введите b');   read(b);     if a> b then writeln('наибольшее число: ', a)    else writeln('наибольшее число: ', b);     end.

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

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

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

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

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