В данной программе имеется кристал, необходимо чтобы он вращался по своей горизонтальной оси. Вращение требуют выполнить в процедуре.
program Kristall;
uses
Graph, crt;
var
x,y,R,i: integer;
Procedyre kris (x:integer; y:integer; R:integer; i: integer);
begin
Circle (x,y,R);
line...