где ошибка в программе???

@чсм · Регистрация: 02.03.2010

Author24 — интернет-сервис помощи студентам

Pascal

uses 
    crt; 
var 
    i:byte; 
begin 
    clrscr; 
    goToXY((lo(windMax)-15) div 2,hi(windMax) div 2); 
    for i:=1 to 15 do 
        begin 
            textColor(i); 
            write('.'); 
        end; 
    readln; 
end.

@o-user · 03.03.2010, 20:39

То, что представлено - работает без ошибок!
--------------

1. Какое условие задачи?
2. А кто Вам сказал, что есть ошибка? Какая ошибка?

@чсм · 04.03.2010, 22:21 **[ТС]**

@Inadequate · 05.03.2010, 02:05

чсм, скорее всего модуль Crt не совместимым с твоей осью. Отсюда и ошибка.

@o-user 247 / 205 / 26 Регистрация: 03.02.2009 Сообщений: 785
	03.03.2010, 20:39	2
	То, что представлено - работает без ошибок! -------------- 1. Какое условие задачи? 2. А кто Вам сказал, что есть ошибка? Какая ошибка? 0

@чсм 0 / 0 / 0 Регистрация: 02.03.2010 Сообщений: 18
	04.03.2010, 22:21 [ТС]	3
	Миниатюры 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	05.03.2010, 02:05	4
	чсм, скорее всего модуль Crt не совместимым с твоей осью. Отсюда и ошибка. 0