Как преобразовать real в integer?

Question

[uzi_no_uzi]

Что я делаю не так? Еще пробовал для этих переменных задавать тип integer сразу, но не помогло.

Program asdasdas;
uses GraphABC;
begin;

  var wWidth, wHeight: integer;
  writeln('Введите размер окна');
  writeln('Ширину:');
    readln(wWidth);
  writeln('Высоту:');
    readln(wHeight);
  SetWindowSize(wWidth, wHeight);

  var figureWidth, figureHeight: integer;
  writeln('Введите размер фигуры');
  writeln('Ширину:');
    readln(figureWidth);
  writeln('Высоту:');
    readln(figureHeight);

  //Options

  SetPenWidth(3);

  //Write center lines

  var centerLineWidth, centerLineStartPoint: real;

  centerLineWidth:= int(wWidth/100 * 57.14);
  centerLineStartPoint:= int(wWidth/100 * 21.43);
  Line(centerLineStartPoint, 0, centerLineStartPoint + centerLineWidth, 0);

end.

Answer 1

[longclaps]

var
  i: integer;
...
  i := round(floatVar);