Дан фрагмент программы:
a:=33; b:= a+1; a:=b-a; writeln (a); writeln (b)​

Const
  n = 40;
var
  s,i,ind,k1,k2: integer;
  mas: array[1..n] of integer;
begin
  s := 0;
  for i:=1 to n do s := s+ mas[i];
  Writeln ('сумма элементов массива: ',s);
 
  s := 1;
  for i:=1 to n do s := s * mas[i];
  Writeln ('произведение элементов массива: ',s);
 
  s := 0;
  for i:=1 to n do s := s + mas[i]*mas[i];
  Writeln ('сумма квадратов элементов массива: ',s);

  s := 0;
  for i:=1 to 6 do s := s+ mas[i];
  Writeln ('сумма первых 6 элементов массива: ',s);
 
  ind:=0;
  repeat
    Writeln('Введите К1: '); read(k1);
    Writeln('Введите К2: '); read(k2);
    if (k2>k1) then ind := 1;
  until (ind=1);
 
  s := 0;
  for i:=k1 to k2 do s := s+ mas[i];
  Writeln ('сумма элементов массива с k1-го по k2-й: ',s); 

end.

var
s:real;
flag,d,m:integer;
begin     
      s:=10; d:=1;
          while s<=100 do             
               begin                 
                  writeln('d: ',d,'   s: ',s);  {эта строка не обязательна, выводит на экран ежедневный пробег, как бы для контроля}         
                      s:=s+s*0.1;                   
                      d:=d+1;                       
                            if s<20 then                           
                                  flag:=d;             
                end;
      writeln('> 20 km :', flag+1,'    day');
      writeln('>100 km : ',d);
end.