На улице Фруктовая построено 4 восьмиэтажных дома, в каждом из которых 4 подъезда. Почтальон Печкин живёт в одном из этих домов. Сколько информации содержится в сообщении о том, в каком доме, в каком подъезде т на каком этаже живёт почтальон

Точная задача по Техническому Заданию:
var x,y:integer;
begin
writeln('введите два числа');
readln(x);
readln(y);
if (x<1000000001) and (y<1000000001) and (x>0) and (y>0)
then writeln('сумма чисел =',x+y)
else writeln('диапазон чисел неверный');
end.

Если вдруг вам поверит учитель, можете перевыполнить поставленную задачу:
var x,y:integer;      
      s:string;
begin
randomize;
writeln('взять ли числа случайными? ответ да или нет');
readln(s);
if (s='да') or (s='Да') or (s='ДА') or (s='дА') then begin
x:=random(1000000000);
y:=random(1000000000);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);  
end
else begin
writeln('введите два числа');
readln(x);
readln(y);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end;
end.

#include <iostream>

#include <ctime>

int main()

{

using namespace std;

setlocale(LC_ALL, "ru");

srand(time(NULL));

int size;

int mult = 1;

cout << "Введите размер массива: " << endl;

cin >> size;

int *arr = new int[size];

cout << "Массив: " << endl;

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

{

 arr[i] = rand() % 50 - 25;

 cout << arr[i] << '\t';

 if (i & 1 && arr[i] != 0)

  mult *= arr[i];

}

cout << "\nРезультат: " << mult;

delete[] arr;

return 0;

}