Дати відповіді на запитання: Багаторядкове текстове поле 1. Чим табличні величини відрізняються від текстових або числових величин?
2. Яку властивість потрібно записати щоб встановити кількість стовпців таблиці?
3. Яку властивість потрібно записати щоб встановити кількість рядків таблиці?
4. Як встановити колір фіксованих стовпців і рядків таблиці?
5. Які елементи управління використовують для введення та виведення значень
табличних величин у середовищі програмування Lazarus?

#include "stdafx.h"
#include "conio.h"
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
cout << "Добро в магазин книг!" << endl;
cout << "Выберите книгу из предложенного списка." << endl;
cout << "Список:" << endl << "1. Книга 1. " << "Стоимость 590 рублей" << endl; cout << "2. Книга 2. " << "Стоимость 440 рублей" << endl << "3. Книга 3. " << "Стоимость 330 рублей" << endl;
int a, b, k, d;
cout << endl;
cin >> d;
if (d <= 3)
{
  switch (d)
  {
 case (1):
 {
  k = 590;
  break;
 }
 case (2):
 {
   k = 440;
  break;
 }
case (3):
 {
  k = 330;
  break;
 }
 }
 cout << "Внесите платеж!" << endl;
  cin >> a;
 if (a > k)
 {
  b = a - k;
  cout << "Возьмите сдачу " << b << " рублей.";
  }
 else if (a < k)
 {
  b = k - a;
  cout << "Внесенной вами суммы недостаточно для покупки товара!" << endl; cout << "Доплатите " << b << " рублей" << endl;
  }
 else if (a = k)
  cout << " за покупку!" << endl;
 }
else
 {
 cout << "Выбери книгу из предложенного списка!" << endl;
 }
_getch();
return 0;
}

Задачу решается вот таким жутким перебором (который, если немного подумать можно ещё сократить):
//Рюмка+рюмка=авария
var a,b,c,d,e,f,g,h:integer;
begin
for a:=1 to 9 do  //р
 for b:=0 to 9 do  //ю
  if (b<>a) then
   for c:=0 to 9 do  //м
    if (c<>a)and(c<>b) then
     for d:=0 to 9 do  //к
      if (d<>a)and(d<>b)and(d<>c) then
       for e:=1 to 1 do  //а
        if (e<>a)and(e<>b)and(e<>c)and(e<>d) then
         for f:=0 to 9 do //в
          if (f<>a)and(f<>b)and(f<>c)and(f<>d)and(f<>e)then
           for g:=0 to 9 do  //и
            if (g<>a)and(g<>b)and(g<>c)and(g<>d)and(g<>e)and(g<>f)then
             for h:=2 to 2 do  //я
              if (h<>a)and(h<>b)and(h<>c)and(h<>d)and(h<>e)and(h<>f)and(h<>g)then
               if 2*(a*10000+b*1000+c*100+d*10+e)=e*100000+f*10000+e*1000+a*100+g*10+h then
                writeln(a*10000+b*1000+c*100+d*10+e,' ',e*100000+f*10000+e*1000+a*100+g*10+h);
end.

Результат:
85931 171862