1011001100=1314
1111101=175
Если ещё успела вот ответ)
Log(333)=~9 9*5000(бит)/8(байт)/1024(килобайт)=5.5 кбайт
Var x,y: real;
begin
readln(x);
y:=x/(1+((x*x)/5+(x*x*x)));
writeln(y);
end.
В общем, проверь ссылки ярлыков (точно ли ведут на нужные программы) и наличие необходимого (.NET, DirectX (хотя не вижу связь, но не повредит)), ну и, конечно, систему антивирем (Kaspersky Virus Removal Tool самое оно)
var
N, S: Integer;
begin
WriteLn ('Введите последовательность натуральных чисел, 0 - для окончания ввода:');
S := 0;
repeat
ReadLn (N);
if (N mod 6 = 0) and (N mod 10 = 6) then
S := S + N;
until N = 0;
WriteLn ('Сумма = ', S);
end.