Прогоном.
a=3 => x больше 64 и не более 511 (первое число, при котором с условием x mod 8>0 цикл запускается 3 раза и 511 последнее из таких чисел)
сам искомый иск наименьший = 106
ЗvT=(З+Т)-3&T=18000+12000-5000=25000
Ответ: 25000
Вот решение в пару строчек:
program with_for;
var i, x: integer;
begin
for i:= 1 to 100 do if i mod 2 =0 then x:=x+i*2 else x:=x+i;
writeln(x);
end.
Ответ:
var i : integer;
Begin
i := 11;
while i>=4 do begin
writeln(i*i*i);
i := i-1;
end;
end.
Объяснение: Можно и без dawnto.