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

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.