Дано 5 чисел напечатать нечетные числа в паскале

program zadacha;vara: array[1..5] of integer;i: integer;beginfor i:=1 to 5 do read(a[i]);writeln();write('nechetnie chisla: ');for i:=1 to 5 doif a[i] mod 2 <> 0 then beginwrite(a[i]:6);end;end.