Дано натуральное число n. написать программу выводящую первых n нечётных чисел 1,3,5

Программа на языке программирования PascalABC выглядит так:

program z1;

uses crt;

var n, i:integer;

begin

writeln ('введите число n');

read (n);

for i:=1 to n do

if i mod 20 then write (i,' ');

end.

Это первый способ решения задачи с использованием оператора цикла for.

Второй способ решения с использованием оператора цикла while имеет вид:

program z2;

uses crt;

var n, i:integer;

begin

writeln ('введите число n');

read (n);

i:=1;

while i<=n do

if i mod 20 then begin write (i,' ');

i:=i+2;

end;

end.