Вкладник поклав у банк X грн під P% річних. Після закінчення року він забирає прибуток.Побудуйте математичну модель і створіть проєкт для визначення, який прибуток отримаєвкладник через 3 роки. Збережіть проєкт у папці Завдання 6.5.11. ів

#include <iostream.h>
int main()
{
setlocale( LC_ALL, "Russian" );
float X, SCALE_MAP, DISTANCE_M1;
std::cout << "Вычисление расстояния между населенными пунктами.\n\n";
std::cout << "Введите исходные данные: \n";
std::cout << "Масштаб карты (количество километров в одном сантиметре): ";
std::cin >> SCALE_MAP;
std::cout << "\nРасстояние между точками, изображающими населенные пункты (см): ";
std::cin >> DISTANCE_M1;
X = SCALE_MAP * DISTANCE_M1;
std::cout << "\nРасстояние между населенными пунктами: " << X << " км\n";
system("pause");
return 0;
}

Pascal
Как я понял array [1..10,1..5] of integer;

 const     
n = 10;     
m = 5; 
var   
a : array [1..n,1..m] of integer;   
i,j,min,jm,buf : integer; 
begin 
for i := 1 to n do   
for j := 1 to m do     
readln (a[i,j]);   

min := a[1,1]; 
jm := 1;   
for i := 1 to n do   
 for j := 1 to m do     
if a[i,j] < min then     
begin       
jm := j;       
min := a[i,j];     
end;    
if jm <> 1 then   
for i := 1 to n do   
begin     
buf := a[i,1];     
a[i,1] := a[i,jm];     
a[i,jm] := buf;   
end;  
end.