Найдите пары встроенная функция и ее запись

я думаю что основанием будет число 7 

проверка: 7^2*1+7^1*2+7^0*2= 49+14+2=65

var

a: array[1..31] of real;

i,k: integer;

min: real;

begin

min: =50;

for i: =1 to 31 do

begin

readln(a[i]);

if a[i]< min then min: =a[i];

end;

k: =0;

for i: =1 to 31 do

if a[i]=min then k: =k+1;

writeln(k);

end.

картинка длжна быть в папке с программой и быть в формате bmp

usesgraphabc;

varn: string; b: picture; s: integer;

beginwriteln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.

последнее будет неверно тк получается что для всех 99-и оно работает, а для себя- нет что противоречит условию именно поэтому девяносто девятое будет верно