Дано 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 lt;gt; 0 then beginwrite(a[i]:6);end;
end.