Перед 3м "begin" добавь "For i: = 1 to 10 do"
При попадании трояна в какое либо устройство может появится реклама в том числе чаще в сего и в порнографическом виде,заражение данный или утечка информации фотографий, важных документов. Может попасть при скачевании каких либо файлов или попадание через USB. Шнур, флешку и т.д.
Всего 10 цифр(включая нуль)
По формуле Неймана
10<=2^i
i=4 бита
Это первый класс
uses crt;
var a,b,sum,pro:integer;
begin
readln(a,b);
for a to b do if a mod 3 =0 then sum:=sum+a;
for a to b do if a mod 3 =0 then pro:=pro+a;
write (summa='sum','proizvedenie='pro);
end.
Нужно умножить 512 битов на 64 символа;
512*64 = 32 768 - символов в алфавите.