Question

По представленной блок-схеме составьте программу.
помогите составить или исправьте мою программу



program variant7_1;
var s,k,a,: integer;
begin
s:=0;
k:=0;
a:=100;
repeat
s:=s+a;
k:=k+1;
a:=a+10;
until a>500;
sr:=s*k;
writeln ( ' вывод sr ' );
end.