График результатов вычислений

Program P1;
var
 K,R: Integer;
begin
WriteLn('Enter');
ReadLn(R);
WriteLn;
Write(R);
K := 0;
while R <> 1 do
begin
Inc(K);
if R mod 2 = 0 then R :=R div 2
else R := 3*R+1;
Write('-->',R);
end;
WriteLn;
WriteLn;
WriteLn('Actions:',K);
ReadLn;
end.

Program P1;
uses crt,graph;
var k,r,max,gd,gm,x0,y0,xp,yv,i:integer;
    a:array[1..100] of integer;
    mx,my:real;
    st:string;
begin
clrscr;
write('r=');readln(r);
k:=0;max:=0;
while r <> 1 do
  begin
   inc(K);
   if r mod 2 = 0 then r :=r div 2
   else r := 3*r+1;
   a[k]:=r;{записываем значения в массив}
   if a[k]>max then max:=a[k];{находим максимальное}
   write('-->',a[k]);
  end;
writeln;
writeln('max=',max);
writeLn('k=',k);
write('Press Enter...');
readLn;
gd:=0;
initgraph(gd,gm,'');
x0:=60; {начло координат}
y0:=getmaxY-40;
xp:=getmaxX-25;{верхняя граница}
mx:=(xp-x0)/k;{масштаб по Х}
my:=420/max;{масштаб по У}
line(x0,y0,xp,y0);{ось Х}
outtextXY(xp+5,y0-15,'K');
for i:=0 to k-1 do{засечки и подписи по оси Х}
 begin
  line(x0+round(i*mx),y0+3,x0+round(i*mx),y0-3);
  str(i+1,st);
  outtextXY(x0+round(i*mx),y0+10,st);
 end;
line(x0,y0,x0,10);{ось У}
outtextXY(x0+10,15,'R');
for i:=1 to round(max/10)+1 do{подписи и засечки по оси У}
 begin
  line(x0-3,y0-round(i*my*10),x0+3,y0-round(i*my*10));
  str(i*10,st);
  outtextXY(x0-25,y0-round(i*my*10),st);
 end;
moveto(x0,y0-round(a[1]*my));{начало графика}
Setcolor(10);
circle(x0,y0-round(a[1]*my),2);{первая точка-кружок}
for i:=1 to k-1 do{остальной график и точки}
 begin
  Setcolor(12);
  lineto(x0+round(i*mx),y0-round(a[i+1]*my));
  Setcolor(10);
  circle(x0+round(i*mx),y0-round(a[i+1]*my),2);
 end;
readln;
end.

Program P1;
uses crt,graph;
var n,k,r,max,gd,gm,x0,y0,xp,yv,i:integer;
    a:array[1..100] of integer;{массив количеств действий}
    mx,my:real;
    st:string;
begin
clrscr;
max:=0;
n:=31;{возьмем числа от 2 до 31}
for i:=2 to n do
 begin
  k:=0;
  r:=i;
  while r <> 1 do
   begin
    inc(k);
    if r mod 2 = 0 then r :=r div 2
    else r := 3*r+1;
   end;
  a[i]:=k;{записываем значения в массив}
  if a[i]>max then max:=a[i];{находим максимальное}
  write('-->',a[i]);
 end;
writeln;
writeln('max=',max);
write('Press Enter...');
readLn;
gd:=0;
initgraph(gd,gm,'');
x0:=60; {начало координат}
y0:=getmaxY-40;
xp:=getmaxX-10;{правая граница}
mx:=(xp-x0)/(n-1);{масштаб по Х}
my:=420/max;{масштаб по У}
line(x0,y0,xp,y0);{ось Х}
outtextXY(xp-5,y0-15,'N');
for i:=0 to n-2 do{засечки и подписи по оси Х}
 begin
  line(x0+round(i*mx),y0+3,x0+round(i*mx),y0-3);
  str(i+2,st);
  outtextXY(x0+round(i*mx),y0+10,st);
 end;
line(x0,y0,x0,10);{ось У}
outtextXY(x0+10,15,'K');
for i:=1 to round(max/10)+1 do{подписи и засечки по оси У}
 begin
  line(x0-3,y0-round(i*my*10),x0+3,y0-round(i*my*10));
  str(i*10,st);
  outtextXY(x0-25,y0-round(i*my*10),st);
 end;
moveto(x0,y0-round(a[1]*my));{начало графика}
Setcolor(10);
circle(x0,y0-round(a[1]*my),2);{первая точка-кружок}
for i:=1 to n-2 do{остальной график и точки}
 begin
  Setcolor(12);
  lineto(x0+round(i*mx),y0-round(a[i+2]*my));
  Setcolor(10);
  circle(x0+round(i*mx),y0-round(a[i+2]*my),2);
 end;
readln;
end.