Классная работа 29.04.2016

Цикл с предусловием:
var
i,n:integer;
begin
  writeln('Деление на 2');
  readln(n);
  i:=1;
  While i<=n do
  if i mod 2 = 0 then
  begin
  writeln(i);
  i:=i+1;
  end;
  readln;
  end.
Цикл с постусловием:
var
i,n:integer;
begin
  writeln('Деление на 2');
  readln(n);
  i:=1;
  repeat
  i:=i+1;
  writeln(i);
  until i<>n;
  readln;
  end.
Цикл со счетчиком:
Var
I,n:integer;
Begin
Writeln('Деление на два');
Readln(n);
I:=1;
For i:=1 to n div 2 do
Writeln(i*2);
Readln;
End.