массив А вводиться с клавиатуры .вывести только нечетные элементы .размер произвольный .решение паскаль

uses   crt; var  a:array[1..5] of integer;  n:integer;  i:byte;beginfor i:=1 to 5 do beginread(a[i]);writeln;end;for i:=1 to 5 do beginif a[i] mod 2 <> 0 thenwriteln(a[i]);end;end.