Число 11011012 в восьмиразрядном представлении имеет вид 01101101. Десятичное число является

положительным числом
отрицательным числом

Var
  x:real;
begin
  x:=-2;
  while x<=2.001 do begin
    Writeln('x=',x:4:1,'  y=',5*sqr(x)-x+2:0:2);
    x:=x+0.1
  end
end.

Результат выполнения программы:
x=-2.0  y=24.00
x=-1.9  y=21.95
x=-1.8  y=20.00
x=-1.7  y=18.15
x=-1.6  y=16.40
x=-1.5  y=14.75
x=-1.4  y=13.20
x=-1.3  y=11.75
x=-1.2  y=10.40
x=-1.1  y=9.15
x=-1.0  y=8.00
x=-0.9  y=6.95
x=-0.8  y=6.00
x=-0.7  y=5.15
x=-0.6  y=4.40
x=-0.5  y=3.75
x=-0.4  y=3.20
x=-0.3  y=2.75
x=-0.2  y=2.40
x=-0.1  y=2.15
x= 0.0  y=2.00
x= 0.1  y=1.95
x= 0.2  y=2.00
x= 0.3  y=2.15
x= 0.4  y=2.40
x= 0.5  y=2.75
x= 0.6  y=3.20
x= 0.7  y=3.75
x= 0.8  y=4.40
x= 0.9  y=5.15
x= 1.0  y=6.00
x= 1.1  y=6.95
x= 1.2  y=8.00
x= 1.3  y=9.15
x= 1.4  y=10.40
x= 1.5  y=11.75
x= 1.6  y=13.20
x= 1.7  y=14.75
x= 1.8  y=16.40
x= 1.9  y=18.15
x= 2.0  y=20.00

function Gcd(a,b: longint): longint;
{ Нахождение НОД }
var
  i: longint;
begin
  while b <> 0 do
  begin
    a := a mod b;
    i := b; b := a; a := i
  end;
  gcd := a
end;

procedure ShortFraction(var m,n:longint);
var
  k:longint;
begin
  k:=Gcd(m,n);
  m:=m div k; n:=n div k
end;

var
  a,b:longint;
begin
  Write('Введите числитель и знаменатель дроби: '); Readln(a,b);
  ShortFraction(a,b);
  Writeln('Дробь после сокращения равна ',a,'/',b)
end.

Тестовое решение:
Введите числитель и знаменатель дроби: 25 15
Дробь после сокращения равна 5/3