Помогите ааааааааАааааааааааааааааааааааааааааппппппппааааааа

Question

Помогите ааааааааАааааааааааааааааааааааааааааппппппппааааааа

---

Answer 1

Программа на языке PascalABC

program raf105;

var s,k,a,sr: integer;

begin

s:= 0;

k:= 0;

a:= 50;

repeat

 s:= s+a;

 k:= k+5;

 a:= a+1;

until a > 57;

sr:= 2*s;

writeln(sr,' ',k);

end.

Результат её выполнения

856   40