Ответы и объяснения

Лучший Ответ!
2014-02-08T11:57:46+00:00
Uses crt;
var i:integer;
begin
i:=1000;
while i>=100 do
begin
write(i,' ');
i:=i-50;
end;
end.