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

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