Определите значение переменной с после выполнения фрагмента алгоритма

PascalABC.Net:
procedure GetData(var a,b:longint; var k:char);
  { ввод исходных данных }
begin
  Write('Введите через пробел натуральные границы диапазона: ');
  Readln(a,b);
  Write('Введите искомую цифру: ');
  Readln(k)
end;

procedure Summa(a,b:longint;k:char;var s:longint);
  { подсчет суммы чисел из интервала [a,b],
    содержащих цифру k }
var
  i:integer;
  ci:string;
begin
  s:=0;
  for i:=a to b do begin
    Str(i,ci);
    if Pos(k,ci)>0 then s:=s+i
  end  
end;

var
  a,b,sum:longint;
  k:char;
begin
  GetData(a,b,k);
  Summa(a,b,k,sum);
  Writeln('Сумма чисел, содержащих цифру ',k,' равна ',sum)
end.

Тестовое решение:
Введите через пробел натуральные границы диапазона: 50 150
Введите искомую цифру: 6
Сумма чисел, содержащих цифру 6 равна 1589

#include "stdafx.h"

#include <iostream>

#include <string>

#include <fstream>

#include <windows.h>

using namespace std;

int main()  

{

setlocale(LC_ALL, "Russian");

float A[10];

cout << "Заполните массив данными:" << endl;

for (int i = 0; i < 10; i++)

{

 cout << "[" << i + 1 << "]: ";

 cin >> A[i];

}

float max = A[0];

for (int i = 0; i < 10; i++)

{

 if (A[i] > max)

 {

  max = A[i];

 }

}

cout << "\nМаксимальное значение: " << max << endl;

float summ = 0;

for (int i = 0; i < 10; i++)

{

 if ((A[i] + 1) == max)

 {

  summ += A[i];

 }

}

cout << "\nСумма элементов массива отличающихся от максимального на единицу: " << summ << endl;

return 0;

}

Объяснение:

Ищем максимальное число в массиве и далее ищем сумму всех элементов массива, которые отличаются от максимального на единицу. Т.е ищем сумму элементов, которые меньше максимального на единицу