хотя бы как это решать?? Данные с главного терминала управления показывают, что в текущем состоянии Газодобывающая станция переработать газ только из трех скважин. Обычно программа диагностики позволяет определить 3 из 25 скважин с наибольшим давлением. Однако сейчас программа повреждена. Все, на что она сейчас. сравнительный анализ давления в любых пяти скважинах. При этом программа скрывает конкретные значения, а показывает лишь давление в них относительно друг друга. Заряда резервных генераторов хватит на 7 таких операций. После этого нужно будет определить 3 скважины с максимальным давлением и запустить их. Уже проведено б диагностических запусков, которые дают тебе информацию о сравнительном давлении в скважинах. Определи, какую группу скважин необходимо проверить в последнем, седьмом запуске, чтобы найти 3 скважины с наибольшим давлением! ОПРЕДЕЛИ, КАКУЮ ГРУППУ СКВАЖИН НУЖНО ПРОВЕРИТЬ В СЕДЬМОМ ЗАПУСКЕ 1) К2СЗ, K2C5, K4C4 K4C2, КЗС12 2) К2СЗ, K2C5, K2CI K4C4, K4C2 3) KIC3, K2C5, K3C4, K4C2, K5C1 4) K2C5, K2Ci, K4CA, K4C2, K4C3 5) K2C5, K2CI, K4C4, K4C2, КЗС12

Var
n,t,s,d,e:integer;
begin
writeln('');
repeat
writeln('Введите сумму в рублях<=1000');
readln(n);
until (n>0) and (n<=1000);
t:=n div 1000;
n:=n-t*1000;
s:=n div 100;
n:=n-s*100;
d:=n div 10;
if d<>1 then
begin
n:=n-d*10;
e:=n;
end;
case t of
     1:write('тысяча ');
end;
if s>=0 then
case s of
     1:write('сто ');
     2:write('двести ');
     3:write('триста ');
     4:write('четыресто ');
     5:write('пятьсот ');
     6:write('шестьсот ');
     7:write('семьсот ');
     8:write('восемьсот ');
     9:write('девятьсот ');
end;
if d>=0 then
case d of
     1:
     case n of
     10: write('десять ');
     11: write('одиннадцать ');
     12: write('двенадцать ');
     13: write('тринадцать ');
     14: write('четырнадцать ');
     15: write('пятнадцать ');
     16: write('шестнадцать ');
     17: write('семнадцать ');
     18: write('восемнадцать ');
     19: write('девятнадцать ');
     end;
     2:write('двадцать ');
     3:write('тридцать ');
     4:write('сорок ');
     5:write('пятьдесят ');
     6:write('шестьдесят ');
     7:write('семьдесят ');
     8:write('восемьдесят ');
     9:write('девяносто ');
end;
if e>=0 then
case e of
     1:write('один ');
     2:write('два ');
     3:write('три ');
     4:write('четыре ');
     5:write('пять ');
     6:write('шесть ');
     7:write('семь ');
     8:write('восемь ');
     9:write('девять ');
end;
if (e=1) then write('рубль ')
else if (e=0)or(e>4) then write('рублей ')
else write('рубля ');
end.