Скажите что делает эта программа и как она работает по шагам s = 0
A = 5
B = 10
for i in range (A,B+1):
s = s + i
print(s)

Добавил ещё команду печати списка найденных троек, а не только их количества (строка   writeln('(',a,', ',b,', ',c,') '); ).

Program Vlad971997;
uses crt;
const n=100;
var
  a,b,c,count: integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  count:=0;
  for a:=1 to n do
    for b:=1 to n do
      for c:=1 to n do
        if (a*a+b*b = c*c) and (a<b) then
          begin
            count:=count+1;
            writeln('(',a,', ',b,', ',c,') ');
          end;
  writeln('Всего найдено ',count,' пифагоровых троек');
end.

Program msdos;
uses crt;
var
  r,sum: real;
  neg:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  neg:=0;
  sum:=0;
  r:=1;
  writeln('Введите ненулевое число');
  writeln('(или введите 0 для конца последовательности) ');
  while r<>0 do
    begin
      write('Ввод:');  
      readln (r);
      if r<0 then neg:=neg+1;
      if r>0 then sum:=sum+r;
    end;
  writeln();
  writeln('Количество отрицательных чисел ',neg);
  writeln('Сумма положительных чисел ',sum);
end.