Найти произведение всех целых чисел от a до 20 (значение a вводится с клавиатуры: 1 < =a < = 20). на паскале

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var a: =readinteger('a=');   writeln(1.to(a).aggregate(int64(,q)-> p*q)) end. пример a= 20 2432902008176640000

программа на паскале:

program xxx;       var a, b: real; begin  writeln('введите количество миль');   readln(a);   b: = a*1.6;   writeln('кол-во киллометров - ',b)end.

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

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

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

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