Вставить установочный диск/флешку с Windows, и восстановить. Эта проблема означает что у вас нету точки восстановления. Лучше включить что бы в будущем не было таких проблем
Вот, на прямоугольнике срабатывает точно, и, по логике, на другоугольниках должно сработать))
var i: integer; begin for i:= 1 to 30 do writeln(i);end.
Вот код вывода чисел от 1 до 30, либо я не понял вопроса, либо вам дорога не в программирование