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

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