Ответы и объяснения

2013-11-14T16:58:42+04:00
Var i: integer;
begin
     for i := 0 to 30 do
     begin          //
         writeln(i); //тело цикла=)
     end;           //
end.