program SumSinRepeatUntil;
 
uses
  SysUtils, Math;
 
var
  N: Integer;
  a: Double;
  i: Integer;
 
begin
  // Вычисление для N=6
  N := 6;
  a := 0;
  i := 1; // Инициализация переменной i
  repeat
    a := a + Sin(i); // Суммирование sin(i)
    Inc(i); // Увеличение i на 1
  until i > N; // Условие выхода из цикла
  Writeln('Сумма синусов для N=', N, ': ', a:0:4); // Вывод результата
 
  // Вычисление для N=12
  N := 12;
  a := 0;
  i := 1; // Сброс переменной i
  repeat
    a := a + Sin(i); // Суммирование sin(i)
    Inc(i); // Увеличение i на 1
  until i > N; // Условие выхода из цикла
  Writeln('Сумма синусов для N=', N, ': ', a:0:4); // Вывод результата
end.

cHJvZ3JhbSBTdW1TaW5SZXBlYXRVbnRpbDsKCnVzZXMKICBTeXNVdGlscywgTWF0aDsKCnZhcgogIE46IEludGVnZXI7CiAgYTogRG91YmxlOwogIGk6IEludGVnZXI7CgpiZWdpbgogIC8vINCS0YvRh9C40YHQu9C10L3QuNC1INC00LvRjyBOPTYKICBOIDo9IDY7CiAgYSA6PSAwOwogIGkgOj0gMTsgLy8g0JjQvdC40YbQuNCw0LvQuNC30LDRhtC40Y8g0L/QtdGA0LXQvNC10L3QvdC+0LkgaQogIHJlcGVhdAogICAgYSA6PSBhICsgU2luKGkpOyAvLyDQodGD0LzQvNC40YDQvtCy0LDQvdC40LUgc2luKGkpCiAgICBJbmMoaSk7IC8vINCj0LLQtdC70LjRh9C10L3QuNC1IGkg0L3QsCAxCiAgdW50aWwgaSA+IE47IC8vINCj0YHQu9C+0LLQuNC1INCy0YvRhdC+0LTQsCDQuNC3INGG0LjQutC70LAKICBXcml0ZWxuKCfQodGD0LzQvNCwINGB0LjQvdGD0YHQvtCyINC00LvRjyBOPScsIE4sICc6ICcsIGE6MDo0KTsgLy8g0JLRi9Cy0L7QtCDRgNC10LfRg9C70YzRgtCw0YLQsAoKICAvLyDQktGL0YfQuNGB0LvQtdC90LjQtSDQtNC70Y8gTj0xMgogIE4gOj0gMTI7CiAgYSA6PSAwOwogIGkgOj0gMTsgLy8g0KHQsdGA0L7RgSDQv9C10YDQtdC80LXQvdC90L7QuSBpCiAgcmVwZWF0CiAgICBhIDo9IGEgKyBTaW4oaSk7IC8vINCh0YPQvNC80LjRgNC+0LLQsNC90LjQtSBzaW4oaSkKICAgIEluYyhpKTsgLy8g0KPQstC10LvQuNGH0LXQvdC40LUgaSDQvdCwIDEKICB1bnRpbCBpID4gTjsgLy8g0KPRgdC70L7QstC40LUg0LLRi9GF0L7QtNCwINC40Lcg0YbQuNC60LvQsAogIFdyaXRlbG4oJ9Ch0YPQvNC80LAg0YHQuNC90YPRgdC+0LIg0LTQu9GPIE49JywgTiwgJzogJywgYTowOjQpOyAvLyDQktGL0LLQvtC0INGA0LXQt9GD0LvRjNGC0LDRgtCwCmVuZC4=