Оператор варианта. на паскале . 1. вывести нечетные целые числа от 1 до 20 2.вывести четные целые числа от 15 до 40

1/
var i:integer;
begin
for i:=1 to 20 do begin
if i mod 2=1 then write(i, '  ');
end;
end.

2/
var i:integer;begin
for i:=15 to 40 do begin
if  i mod 2=0 then write(i,'  ');
end;
end.

Program pr; var i:integer; begin for i:=1 to 20 do if (i mod 2=1) then write(i,' '); writeln(); for i:=15 to 40 do if (i mod 2=0) then write(i,' '); end.