Информатика ! Путём преобразования докажите равносильность следующих высказываний:

Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. Для только положительных:

//c циклом for
var s,i:integer;
begin
  for i:=100 to 999 do
    if i mod 77 = 0 then s:=s+i;
  writeln('Сумма трехзначных кратных 77: ',s);
end.

Тестовое решение:
Сумма трехзначных кратных 77: 5929

// с циклом while
var s,i:integer;
begin
  i:=100;
  while i<=999 do begin
    if i mod 77 = 0 then s:=s+i;
    i:=i+1;
  end;
  writeln('Сумма трехзначных кратных 77: ',s);
end.

Program vidcvnjiod;

uses crt;

var p,a:real;

      m:integer;

begin

clrscr;

a:=1000;

p:=(a*2)/100;

m:=3;

repeat

a:=a+p;

m:=m+1;

until a>1050;

m:=m mod 12;

case m of

0: writeln('декабрь');

1: writeln('январь');

2: writeln('февраль');

3: writeln('март');

4: writeln('апрель');

5: writeln('май');

6: writeln('июнь');

7: writeln('июль');

8: writeln('август');

9: writeln('сентябрь');

10: writeln('октябрь');

11: writeln('ноябрь');

readln;

end.

Откомпиль, если ошибки, то исправь, но вроде не должно быть

В программе а=1000

отсчитывается процент

идет цикл пока сумма не больше 1050

прибавляется процент и месяц идет дальше

Затем выбор месяца