Question

составить программу для ввода на экран не чётных чисел от -25 до 25

Answer 1

var
i : integer;
begin
for i:= -25 to 25 do
if i mod 2 <> 0 then
writeln(i);
end;
end.