Реши задачу.

Почта дяде Фёдору

Дядя Фёдор, кот Матроскин и пёс Шарик летом жили в а папа с мамой слали им письма, посылки, телеграммы и бандероли, которые доставлял почтальон Печкин.
Каждое письмо весило в среднем 100 г, каждая посылка — 5 кг, каждая телеграмма — 50 г, каждая бандероль — 500 г.

Дядя Фёдор получил 10 писем, 3 посылки, 9 телеграмм и 1 бандероль.
Кот Матроскин получил 3 письма, 1 посылку, 3 телеграммы и 1 бандероль.
Пёс Шарик не получил ни одного письма, ни одной телеграммы, зато получил 3 посылки и 3 бандероли.

Сколько весила вся доставленная Печкиным почта одного вида?

Вес писем:
г
Вес посылок:
кг
Вес телеграмм:
г
Вес бандеролей:
г

#include <iostream>
#include <cstdlib>
#include <vector>
using namespace std;

int main()
{
vector<int> v;
cout <<"Укажите размер массива: ";
int s;
cin >>s;
srand(time(0));
for(int i=0; i!=s; ++i)
v.push_back(rand()%100);
int find;
cout <<"Введите число для поиска: ";
cin >>find;
bool founded = false;
for(auto it=v.begin(); it!=v.end(); ++it)
if(*it==find) founded=true;
if(founded)
cout <<"Это число есть в массиве!" <<endl;
else cout <<"Такого числа нет в мвссиве!" <<endl;

return 0;
}

1. Если имеется в виду язык Pascal, то получим следующее:
var: a;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
  readln(a);
  b:=a+a;
  writeln (b);
end.

Program50.pas(5) : Неизвестное имя 'b'

2. Попробуем такой вариант на Python

a =int(input())
b = a+a
print(b)

При вводе а получим на выходе 10

Получается, что в Pacal требуется объявлять переменные в секции переменных, или в любом месте программы можно объявить переменную с служебного слова var для PascalABC.net. Первый код можно переписать так, и он будет работать:

var: a;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
  readln(a);
  var b:=a+a;
  writeln (b);
end.

Рузультат при введенном значении 5 равен 10