Question

Помогите, пожалуйста, срочно надо, желательно с процедурой , заранее спасибо

Answer 1

===== PascalABC.NET =====

procedure DoAll;

begin

for var i := 1 to 100 do

if Odd(i) then

Print(i);

Writeln

end;

begin

DoAll

end.