Поделим частоту процессора на частоту шины, чтобы найти коэффициент.
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(Range(1,99,2).Select(x->x*x).Sum)
end.
<u>Результат</u>
166650
Pascal
read(A) {Ввод А}
А:=А*А;
А:=А*А;
write(A) {Вывод А}