Вынести 1000,950,900,850,...100 помогите пожалуйста!!!!!

Question

Вынести 1000,950,900,850,...100 помогите пожалуйста!!!!!

Answer 1

Uses crt;
var i:integer;
begin
i:=1000;
while i>=100 do
begin
write(i,' ');
i:=i-50;
end;
end.