Вывести все нечетные числа в пределах 15. с использованием массивов /паскаль/

Program (Название);
begin
var;
clrscr:
s:t string;
v integer;
begin
infdef ('Вычесть все числа');
s:=(15);
t:=(15:2);
v:=(t-0,5);
readln;
end;
write scr(v);
end.