[Ultras]

наверное так: )))

Код:

var
  sq: double;
begin
  s := 2;
  s := s shl 1;
  sq := s / 3;
  // sq := s div 3; //если на цело
  Label1.Caption := FloatToStr(s);
end;