Помогите, пожалуйста, решить с подробным объяснением. Очень прошу!!!

Цикл с постусловием проходили?

Да

Var S,K,A:integer;BeginS:=0;K:=0;A:=50;RepeatS:=S+A;K:=K+5;A:=A+1;Until A>150;WriteLn('SR = ',2*S);WriteLn('K = ',K);End.