LINUX.ORG.RU

История изменений

Исправление Napilnik, (текущая версия) :

Не юли, опиши, чем неудобно.

VAR
Q3: BYTE;
Q2: LONGINT;

BEGIN
Q3:=-1;
Q2:=Q3*1000000;
WRITELN(Q2);
END.

.

{$R+}
VAR
Q3: BYTE;
Q2: LONGINT;

BEGIN
Q3:=-1;
Q2:=Q3*1000000;
WRITELN(Q2);
END.

Исходная версия Napilnik, :

Не юли, опиши, чем неудобно.

VAR
Q3: BYTE;
Q2: LONGINT;

BEGIN
Q3:=-1;
Q2:=Q3*1000000;
WRITELN(Q2);
END.