Даны описания: type Oras = (Chisinau, Orhei, Balti, Tighina, Tiraspol);
Consum = array [Oras] of real;
var C : Consum;
r : Oras;

Компонента C[r] переменной C представляет собой потребление электроэнергии
города r в течении одной недели. Напишите программу, которая:
а) вычисляет количество электроэнергии, потребляемой всеми городами за неделю;
б) определяет город с максимальным еженедельным потреблением электроэнергии;

333*3 + 3/3 = 1000

(8888 - 888) / 8 = 1000

в блок схемах не сильна

var n: integer;

s,s0: real;

begin

  n: =1;

  s: =10;

  repeat

      n: =n+1;

      s: = s + (100+p)*s0/100;

      s0: =(100+p)*s0/100;

  until s> 200;

  writeln(s);

end.

решаем относительно a: a=(-6*x2-c)/x4=-6*x2/x4-c/x4

есть пара неясностей в условии. если допускается такое, что единица и само число тоже являются делителями, то берите первый вариант решения, иначе - берите второе.

и еще кое-что: если нужно хотя бы 4 делителя, то оставьте все как есть, а если нужно ровно четыре делителя, в строчке  if k> =4 then write(i: 3); уберите знак >   .

1 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число n');

for i: = 1 to n do begin

k: =0;

for j: = 1 to i do

if i mod j =0 then k: =k+1;

if k> =4 then write(i: 3);

2 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число n');

for i: = 1 to n do begin

k: =0;

for j: = 2 to (i-1) do

if i mod j =0 then k: =k+1;

if k> =4 then write(i: 3);