По представленной блок-схеме составьте программу и получите результат ее выполнения

var s,k,a,sr:integer;begins:=0;k:=100;a:=100;repeat s:=s+a; k:=k-1; a:=a-1;until a<=10;sr:=s*s;writeln('sr = ',sr,' k = ',k);end.Пример:sr = 24950025 k = 10