Question

НАЙДИТЕ ОШИБКУ!!!!!!

Program nissannn;
Uses crt,GraphABC;
Const
w=800;
h=600;
x0=50; y0=500;
k=8;
t:array [1..k] of integer = (0,0,1,2,67,62,27,14);
c:array [1..k] of colortype= (ClRed,ClBlue,ClGreen,ClPink,ClPurple,ClNavy,ClAqua,ClYellow);
planet: array [1..k] of string = ('Меркурий','Венера','Земля','Марс','Юпитер','Сатурн','Уран','Нептун');
var x1,y1,x2,y2: integer;
kx,ky: integer;
i,x,y,max: integer;
Begin
SetWindowSize(w,h);
SetFoneSize(18);
SetFoneStyle (fsBold);
TextOut (180,20,'Количество спутиков планет Солнечной системы');
SetFoneSize(12);
SetFoneStyle (fsNormal);
max:=t[1];
For i:=2 to k do
begin
if t[i]>max then max:=t[i];
end;
ky:=trunc(y0/(max+1));
kx:=trunc((WindowWidht-x0)-k);
Line (0,y0,w,y0);
Line (x0,0,x0,h);
TextOut(w div 1 - 8,y0+8,'Планеты');
TextOut (x0 +10,20,'Количество спутников');
i:=x0; x:=1;
While x<=k do
begin
Line (i,y0-8,i,y0+8);
i:=i+kx;
TextOut (trunc(i-(kx div 1)),y0+10, planet [x]);
x:=x+1;
end;
i:=y0; x:=0;
While x<=max do
begin
Line (x0-8,i,x0+8,i);
TextOut (x0-25,i, IntTostr (x));
i:=i-ky;
x:=x+1;
end;
x1:=x0; y1:=y0;
x:=1;
While x<=k do
begin
y:=t [x];
x2:= x1+kx;
y2:= trunc (y1-ky*y);
SetBrushColor (c[x]);
Rectangle (x1,y1,x2,y2);
x1:=x2;
x:=x+1;
end;
SaveWindow ('Diagramm1.bmp');
end.

Answer 1

Ответ:

их вроде нет я так думаю