zadach248.PAS

{* Задача 248 *}

Unit ZADACH248;
Interface
Implementation
Begin
 writeln('Изобразить на экране точку, пересекающую экран равноускоренно в вертикальном направлении. ');
End.

Program zadach248;

Uses zadach248.pas; {* Эту строку можно удалить *}
Uses Crt, Graph; {* Подключение модулей *}
Var {* Необходимые переменные *}
  grDriver : integer;
  grMode   : integer;
  ErrCode  : integer;
  i        : integer;
  j        : longint;
  n        : longint;
Begin
  grDriver := Detect;
  InitGraph(grDriver, grMode, ''); {инициализация графики}
  ErrCode := GraphResult;
  If ErrCode = grOk Then
  Begin
    n := 10000000;
    While i30000 Then
      dec(n, 30000); {* Уменьшаем n, 30000 на 1 *}
  End;
  CloseGraph;
End;
Else WriteLn('Ошибка инициализации графики:', GraphErrorMsg(ErrCode));
  End...