на ПАСКАЛЬ Составить программу на языке Паскаль для решения задачи.

Имеются данные о семи моделях автомобилей. Определите по номеру модели характеристики автомобиля: год выпуска и цену.

Входные данные задайте самостоятельно.

Uses Crt;

const
  n=15;
 
var
  i,m1,m2,t:integer;
  k:array[1..n] of integer;

begin
  ClrScr;
  Writeln('Укажите количество людей на каждом этаже');
  for i:=1 to n do Read(k[i]);
  Writeln;
  { массив получен, решаем задачу }
  m1:=1; m2:=2;
  if k[m2]<k[m1] then begin t:=m1; m1:=m2; m2:=t end;
  for i:=3 to n do
    if k[i]<k[m2] then begin m2:=i; t:=m1; m1:=m2; m2:=t end;
  Writeln('Меньше всего людей на этажах ',m1,' и ',m2);
  ReadKey
end.

**************************************************************************************

uses Crt;

const
  n=10;
  a:array[1..n] of integer=(6,6,6,6,3,5,2,1,0,7);
 
var
  i,j,t:integer;

begin
  ClrScr;
  t:=a[1];
  i:=2;
  while (i<=n) and (a[i]=t) do i:=i+1;
  if i<=n then begin
    Writeln('Одинаковых элементов: ', i-1);
    Write('За ними следуют элементы ');
    for j:=i to n do Write(a[j],' ');
    Writeln
    end
  else Writeln('Весь массив заполнен одинаковыми элементами');
  ReadKey
end.

#include <iostream>
#include <string>

using namespace std;

string solve(int num, int divd)
{
    string result = "";
    int count = 0;
    while(num)
    {
        count = num / divd;
        if(count)
        {
            num %= divd;
            for (int i = 0; i < count; i++)
                switch(divd)
                {
                    case 1000:
                    {
                        result+="M";
                        break;
                    }
                    case 900:
                    {
                        result+="CM";
                        break;
                    }
                    case 800:
                    {
                        result+="DCC";
                        break;
                    }
                    case 700:
                    {
                        result+="DCC";
                        break;
                    }
                    case 600:
                    {
                        result+="DC";
                        break;
                    }
                    case 500:
                    {
                        result+="D";
                        break;
                    }
                    case 400:
                    {
                        result+="CD";
                        break;
                    }
                    case 300:
                    {
                        result+="CCC";
                        break;
                    }
                    case 200:
                    {
                        result+="CC";
                        break;
                    }
                    case 100:
                    {
                        result+="C";
                        break;
                    }
                    case 90:
                    {
                        result+="XC";
                        break;
                    }
                    case 80:
                    {
                        result+="LXXX";
                        break;
                    }
                    case 70:
                    {
                        result+="LXX";
                        break;
                    }
                    case 60:
                    {
                        result+="LX";
                        break;
                    }
                    case 50:
                    {
                        result+="L";
                        break;
                    }
                    case 40:
                    {
                        result+="XL";
                        break;
                    }
                    case 30:
                    {
                        result+="XXX";
                        break;
                    }
                    case 20:
                    {
                        result+="XX";
                        break;
                    }
                    case 10:
                    {
                        result+="X";
                        break;
                    }
                    case 9:
                    {
                        result+="IX";
                        break;
                    }
                    case 8:
                    {
                        result+="VIII";
                        break;
                    }
                    case 7:
                    {
                        result+="VII";
                        break;
                    }
                    case 6:
                    {
                        result+="VI";
                        break;
                    }
                    case 5:
                    {
                        result+="V";
                        break;
                    }
                    case 4:
                    {
                        result+="IV";
                        break;
                    }
                    case 3:
                    {
                        result+="III";
                        break;
                    }
                    case 2:
                    {
                        result+="II";
                        break;
                    }
                    case 1:
                    {
                        result+="I";
                        break;
                    }
                }
        }
        if(divd <= 1000 && divd > 100) divd-=100;
        else if(divd <= 100 && divd > 10) divd-=10;
        else divd-=1;
    }
    return result;
}

int main()
{
    int num,count;
    cin >> num;
    if(num <= 3999) cout << solve(num,1000);
    else cout << "Incorrect input.";
    return 0;
}