1) Исполнитель
2)Файл
3)Процессор
4)Или (это так и называется)
5)Монитор
699 в десятичной равно 1010111011 в двоичной
100 мегабайт = 100.000.000 байт
3.445.801 и теперь сравни
100.000.000 > 3.445.801
100 мегабайт больше 3445801
uses
SysUtils;
var
n,m,i:integer;
begin
readln(n);
m:=0;
for i := 1 to n-1 do
if m > n then break else
if (n mod i = 0) then m:=m+i;
if m=n then writeln('Yes') else
writeln('No');
end.