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



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.

Var S,K,A:integer;BeginS:=0;K:=0;A:=100;RepeatS:=S+A;K:=K+1;A:=A+10;Until A>500;WriteLn('SR = ',K*S);End.