Напишите циклический алгоритм и укажите в нем тело цикла

Var i: integer;
begin
     for i := 0 to 30 do
     begin          //
         writeln(i); //тело цикла=)
     end;           //
end.