Вычислить нечетные возраста. Опции

[rydyak]

Нужно решить задачу: С клав-ры вводится возраст учеников класса. Вычислить нечетные возраста.

Код

uses crt;
var i,n,y:integer;
    a:array [1..600] of real;
begin
clrscr;
read(n);
for i:=1 to n do;
if i mod 1=0 then write (i,' ')
writeln;
i:=1;
while i<n do
  begin
    if i mod 1=0 then write (i,' ');
    i:=i+1;
  end;
writeln;
writeln('Cikl Repeat:');
i:=1;
repeat
if i mod 1=0 then write (i,' ');
i

[Гость]

А что не получается?
Неужели откомпилировать?

[rydyak]

Помогите додумать плз

[sheka]

Додумал.

[rydyak]

Выложи

[sheka]

Приготовил - съел - выложил.