Как продолжить программу? турбо паскаль нужно чтобы мяч возвратился обратно в начальные координаты.! program myach; uses crt, graphabc; var x: integer; begin x: =1; for x: =190 to 465 do begin clrscr; circle(150, 150, 15); line(150, 165, 150, 250); line(150, 250, 130, 270); line(150, 250, 170, 270); line(150, 180, 180, 175); line(150, 180, 180, 180); circle(500, 150, 15); line(500, 165, 500, 250); line(500, 250, 480, 270); line(500, 250, 520, 270); line(500, 180, 470, 175); line(500, 180, 470, 180); circle(x, 170, 10); delay(5); end; end.

Program myach;   uses crt,graphabc;   var x: integer;   begin  x: =1;   for x: =190 to 465 do  begin  clrscr;   circle(150,150,15);   line(150,165,150,250);   line(150,250,130,270);   line(150,250,170,270);   line(150,180,180,175);   line(150,180,180,180);   circle(500,150,15);   line(500,165,500,250);   line(500,250,480,270);   line(500,250,520,270);   line(500,180,470,175);   line(500,180,470,180);   circle(x,170,10);   delay(5);   end;   for x: =465 downto 190 do  begin  clrscr;   circle(150,150,15);   line(150,165,150,250);   line(150,250,130,270);   line(150,250,170,270);   line(150,180,180,175);   line(150,180,180,180);   circle(500,150,15);   line(500,165,500,250);   line(500,250,480,270);   line(500,250,520,270);   line(500,180,470,175);   line(500,180,470,180);   circle(x,170,10);   delay(5);   end;   end.

Это вещественный тип данных, тоесть действительные числа, диапазон меняется в зависимости от языка, отличительная особенность этого числового типа это знаки после запятой, и даже если ввели целое число и запишется и отображаться оно будет с так называемой плавающей точкой, к примеру если ввели 5, то будет отображаться 5.0, хотя исключительно для паскаля там отображается как целая часть умноженная на 'e' в степени, и да что не самое маловажное так это - над вещественными числами можно проводить такую операцию как деление, в школьных языках программирования делить на интегер к примеру нельзя потому как может образоваться нецелое число

Тип integer - целое. диапазон: от -32 768 до 32 767. допустимые значения - например, -18 или 367. тип real - вещественное. диапазон: от ±2.9e(-39) до ±1.7e38. допустимые значения - например, -0.318, -4.579e(-20) или 3.67e5. здесь запись, например, 3.67e5 означает 3.67*10^5, остальные аналогично. тип char - символьный. диапазон - от #00 до #255. допустимые значения - например, #57, 'a', 'g', '+'. каждая переменная этого типа - это один знак из таблицы ascii. может обозначаться собственно знаком (в апострофах) или кодом (# и число).