Напишите пожалуйста программу, по представленном блок-схеме

var
  s, k, a, sr: integer;
begin
  s := 0;
  k := 100;
  a := 12;
  repeat
    s := s + a;
    k := k - 10;
    a := a - 1;
  until not(a > 1);
  sr := s + k;
  writeln(sr);
  writeln(k);
end.