Var x,y,i,min,max1,max2:integer;
begin
writeln('пожалуйста, введите поочередно 3 числа');
readln(x);readln(y);readln(i);
if (x<y) and (x<i) then begin min:=x; max1:=y; max2:=i; end;
if (i<y) and (i<x) then begin min:=i; max1:=y; max2:=x; end;
if (y<x) and (y<i) then begin min:=y; max1:=x; max2:=i; end;
writeln('минимальное число =',min);
writeln('произведение 2-х максимальных =',max1*max2);
end.
Пример работы:
пожалуйста, введите поочередно 3 числа641281минимальное число =1произведение 2-х максимальных =8192
А) осталось 3 стакана
б) осталось две свечи, остальные сгорели
в) День и ночь заканчиваются мягким знаком. Лето кончается, а осень начинается буквой О
1)-1
2)-2
3)-3
4)-4
5)-5
6)-10
7)-11
8)-12
9)-13
10)-14
11)-15
12)-20
13)-21
14)-22
15)-23
16)-24
17)-25
18)-30
19)-31
20)-32
Ну в папке лежат бумажки какие-то а карандаш он маленький если просунуть руку пониже то ты его найдёш