Нужна помощь с паскалем

Question

Нужна помощь с паскалем

---

Answer 1

program p1;
var
s, k, a, sr: integer;
begin
s := 0;
k := 0;
a := 10;
repeat
s := s * a;
k := k + 10;
a := a + 1;
until a > 100;
sr := s;
writeln(sr, ' ', k);
end.