<span>Первый ютер был apple 1,его придумал Стив Джопс,основатель компании эпл</span>
Const
n=100;
var
i,m,s:integer;
com:array[1..n] of integer;
begin
randomize;
readln(s);
for i:=1 to n do begin com[i]:= random(100);
if com[i] mod s =0 then s:=s+com[i]
end;
writeln(s);
end.
Пограммирование
енавориммаргоп
пграммироване
еавориммаргп
праммировае
евориммарп
паммирове
еориммап
пммирое
ериммп
пмире
еимп
пие
еп
п
Ответ: П
Вариант с небольшой автоматизацией