Решите пожалуйста задачу для Pascal ABC 8класс

Question

Решите пожалуйста задачу для Pascal ABC 8класс

---

Answer 1

Можно сделать по-другому (короче), просто функцию забыл :D
var x:byte;
begin
x:=51;
Repeat x:=x-2;
write(' ',x);
Until x<=1;<br>end.